Numero de página en QuickReport

[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.