Código Delphi
[-]
Application.CreateForm(TfrLptFactura,frLptFactura);
frlptFactura.LptFactura.Prepare;
nPages:=frlptFactura.LptFactura.QRPrinter.PageCount;
frLptFactura.LptFactura.PreviewModal;
frLptFactura.Close;
nPages es una variable de tipo entero que se ha declarado previamente.
Un Saludo.