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.