Foros Club Delphi - Numero de página en QuickReport

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

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

- - Numero de página en QuickReport (https://www.clubdelphi.com/foros/showthread.php?t=7050)

Numero de página en QuickReport

Hola.

Necesito crear reportes por períodos, por lo que las páginas varían dependiendo de las consultas, por lo que necesito etiquetar en la esquina superior derecha el número de la página y el total.

por ejemplo si son 32 páginas y estoy mirando la primera quiero que se imprima en la esquina 1/32

alguien me puede ayudar??

gracias :D

Para lo que quieres basta con que ejecutes un Prepare, para obtener el número de páginas y lo
guardes en una variable.

Código:

Application.CreateForm(TfrLptFactura,frLptFactura);

frLptFactura.LptFactura.Prepare;



nPages:=frlptFactura.LptFactura.QRPrinter.PageCount;//Guardamos el total de

páginas en una variable pública



frLptFactura.LptFactura.PreviewModal;

frLptFactura.Close;







procedure TfrLptFactura.LptFacturaBeforePrint(Sender: TCustomQuickRep;

  var PrintReport: Boolean);

begin

lbPaginas.caption:='/ '+IntToStr(nPages);//Ponemos el número de páginas en

una etiqueta que estará al lado de la página actual

end;

Un Saludo.

muchisimas gracias.

lo probaré.

Eduardo