Crear nueva pagina

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • Crear nueva pagina

    Hola Amigos, necesito que me ayuden.
    Tengo que crear un archivo en Data Reports para que imprima N paginas, y solo como contenido el encabezado (nombre de la empresa).
    En visual basic tengo una interfaz en donde el usuario inserta cuantas paginas quiere que se impriman.

    Gracias por su ayuda.

  • #2
    Re: Crear nueva pagina

    Si no te entiendo mal, la solución la tienes cuando pinchas en el icono de imprimir, introduciendo "n" en el cuadro en que te solicita qué número de copias necesitas.
    José María Movilla Cuadrado
    ______________________
    Normas del foro
    www.foro.vb-mundo.com
    www.vb-mundo.com

    Comentario


    • #3
      Re: Crear nueva pagina

      Originalmente escrito por J.M.Movilla Ver mensaje
      Si no te entiendo mal, la solución la tienes cuando pinchas en el icono de imprimir, introduciendo "n" en el cuadro en que te solicita qué número de copias necesitas.
      El numero lo ingresa el usuario(ya lo tengo) y con ese numero salen las copias de las hojas.

      Gracias..

      Comentario


      • #4
        Re: Crear nueva pagina

        Originalmente escrito por whenriquez Ver mensaje
        El numero lo ingresa el usuario(ya lo tengo) y con ese numero salen las copias de las hojas.

        Gracias..
        No sé si quieres decir que es válida la solución que te doy, o que el número de copias "ya lo tienes" asignado por código... Si es esto último, podrías probar con
        Código:
        For n = 1 to Nº_asignado
            DataReport1.PrintReport
        Next
        José María Movilla Cuadrado
        ______________________
        Normas del foro
        www.foro.vb-mundo.com
        www.vb-mundo.com

        Comentario


        • #5
          Re: Crear nueva pagina

          Originalmente escrito por J.M.Movilla Ver mensaje
          No sé si quieres decir que es válida la solución que te doy, o que el número de copias "ya lo tienes" asignado por código... Si es esto último, podrías probar con
          Código:
          For n = 1 to Nº_asignado
              DataReport1.PrintReport
          Next
          Gracias, lo probaré y te comento.

          Comentario


          • #6
            Re: Crear nueva pagina

            Originalmente escrito por whenriquez Ver mensaje
            Gracias, lo probaré y te comento.
            Hola, lo probé y solo me salio una sola hoja.
            Dejo el código fuente para ver si estoy haciendo algo mal

            Código:
            sql = "select * from empresa"
            Set rst = cnn1.Execute(sql)
            If rst.EOF = False Then
                empresa = rst!Set_NombreEmpresa
                rut = rst!Set_RutEmpresa
            Else
                empresa = ""
                rut = ""
            End If
            RptHoja.Sections("Sección2").Controls("LblEmpresa").Caption = empresa
            Set RptHoja.DataSource = rst
            For i = 1 To 5
                RptHoja.PrintReport
            Next
            RptHoja.Show 1

            Comentario


            • #7
              Re: Crear nueva pagina

              Originalmente escrito por whenriquez Ver mensaje
              Gracias, lo probaré y te comento.
              Discúlpame, no me fije que tenia las impresiones en cola, y si salen en el orden y el total de copias que salen el el código fuente.

              Mil gracias por tu ayuda.

              Comentario

              Trabajando...
              X