Numero de página en QuickReport

[KayserSoze]

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

[marcoszorrilla]

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

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.

[KayserSoze]

muchisimas gracias.

lo probaré.

Eduardo