Neftalí, tienes toda la razón.
Disculpas a todos por no indicar la solución.
Esta es la solución que a mí me ha servido para solucionar mi problema
Código Delphi
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.
Espero que os sirva a todos.
saludos.
Miguel