Foros Club Delphi - Imprimir páginas pares o impares mediante el QReport?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Imprimir páginas pares o impares mediante el QReport? (https://www.clubdelphi.com/foros/showthread.php?t=11270)

bestiux

09-06-2004 22:19:51

Imprimir páginas pares o impares mediante el QReport?

Hola a todos,

Me gustaría saber si hay alguna forma mediante el QReport para seleccionar la impresión de las páginas pares o impares.
Seguramente será algun evento del reporte, pero soy bastante novato y no se la forma de actuar.
Es para poder imprimir a doble cara con impresoras que no pueden realizar esta función automáticamente.

Muchas gracias a todos y seguid igual.

Combat-F2D

10-06-2004 00:24:19

prueba a jugar con la propiedad Duplex

otra opcion a seguir podria ser:

Código:

        If  (qrListadoGeneralClientes.PageNumber Mod 2) = 1 then

             // esto seria una pagina impar

bestiux

10-06-2004 17:56:20

Gracias Combat-F2D por tu solución ya que es lo que andaba buscaba pero ahora trato de encontrar ¿como se le puede decir al QReport que no imprima la página?

Se que ha de ser como la opción de imprimir selección pero no se como decirle que no imprima la página.

Si alguien me puede ayudar le estaría muy agradecido.

Combat-F2D

10-06-2004 20:26:21

vamos a ver si este codigo que te envío te puede solucionar algo:

Código:

procedure TfClientes.BotonImprimir(Sender: TObject);



var nPaginas:Integer;

       i:Integer;



begin



    qrListadoGeneralClientes.Prepare;

    nPaginas := qrListadoGeneralClientes.PageNumber;



    for i:=1 to nPaginas do

    begin

        If i Mod 2 = 1 then Continue; 

                // esta sentencia es para que solo imprima las paginas pares

               // si quisieses solo las impares sería:  If i Mod 2 = 0 then Continue;



        with fListadoGeneralClientes.qrListadoGeneralClientes do

        begin

            PrinterSettings.FirstPage:=i;

            PrinterSettings.LastPage :=i;

            Print;

        end;

    end;

end;

se que no es mu güapa, pero creo que trabaja.

bestiux

10-06-2004 20:53:48

Muchisimas gracias Combat-F2D como tu bien has dicho no es muy elegante pero el resultado es mas que satisfactorio.

De todas formas queda abierta la posibilidad a que algun compañero nos pueda indicar cualquier otra forma de hacerlo.

La franja horaria es GMT +2. Ahora son las 14:28:32.