Foros Club Delphi - Problemas imprimir mas de una pàgina

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

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

- - Problemas imprimir mas de una pàgina (https://www.clubdelphi.com/foros/showthread.php?t=1751)

rafadrover

26-06-2003 12:32:13

Problemas imprimir mas de una pàgina

Tengo un report que solamente me imprimie una pàgina, la primera, pero en el preview lo veo todo perfectamente, he intentado con varias impresoras y siempre lo mismo, alguien tiene alguna idea

chutipascal

26-06-2003 13:00:19

Si imprimes desde el preview (botoncito arriba) te hace lo mismo?

rafadrover

26-06-2003 13:32:43

Igualmente, he intentado con una HP2200 y con una epson c82, con windows 98, y con windows Xp, no se si es algo del delphi 6, gracias

chutipascal

26-06-2003 13:47:52

La verdad me dejas perplejo, de todos modos mira de actualizar el QReport y los demases parches...

rafadrover

27-06-2003 17:50:20

Provare a ver que pasa, gracias

rafadrover

30-06-2003 12:48:07

Hey, he encontrado la solucion, en la pantalla del preview, en los settings de la impresora, le he puesto paginas de 1..24, en lugar de todo, y luego se ha puesto a imprimir todas las paginas correctamente, luego el segundo paso a sido poner en el metodo Imprimir que tengo definido el report lo siguiente:

procedure TLlistatMatSimpleRpt.Imprimir;
begin
PrinterSettings.LastPage:=999;
Print;
end;

Asi, me imprime todo directamente sin el preview, cosas de la vida, sabeis como le puedo pasar exactamente el numero de la ultima pàgina en lugar de 999, es que queda muy feo, y el tanto por ciento que sale cuando procesa se passa del 2000%, gracias

chutipascal

30-06-2003 18:39:40

Prueba esto

Código:

(variable global)

Paginas integer;

procedure TFprdiar.QuickRep1BeforePrint(Sender: TCustomQuickRep;

  var PrintReport: Boolean);

begin

   Paginas:=0;

end;





procedure TFprdiar.QuickRep1StartPage(Sender: TCustomQuickRep);

begin

  inc(Paginas);

end;

De todas formas creo que tienes algo que no funciona correctamente, deberia colocarse en lastpage la ultima pagina...

marcoszorrilla

30-06-2003 23:50:58

También puedes hacer un Prepare:

Código:

  frlptFactura.LptFactura.Prepare;

        nPages:=frlptFactura.LptFactura.QRPrinter.PageCount;

        frLptFactura.LptFactura.Print;

nPages, contiene el número de páginas que tiene el Informe.

Un Saludo.

José Arce

05-07-2003 13:52:59

Hola, tuve el mismo problema y lo solucione modificando la propiedad printerseting-firtpage=0 y lastpage=0 del qickreport del formulario, todavia no se porque pero algunas veces se configura a 1 y por eso solo imprime una pagina.

Espero que todavia te sirva un saludo Jose Arce

rafadrover

22-07-2003 14:24:41

Perdona no haber contestado antes, he probado lo que me sugeriste y ha funcionado perfectamente. Muchas gracias!!!

La franja horaria es GMT +2. Ahora son las 17:08:27.