Imprimir Página x de n

[Miguel45]

Hola compañeros.

Gracias por la atención prestada.

Ya tengo la solución. He vuelto a buscar otra vez por el foro y he encontrado la respuesta.
La verdad es que es fácil, pero a veces nos queremos complicar nosotros mismos nuestra existencia.

Saludos

Miguel.

[Neftali [Germán.Estévez]]

Una referencia al hilo o solución no estaría mal y facilitaría las búsquedas a otros compañeros que revisen este hilo.

[Miguel45]

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

[Neftali [Germán.Estévez]]

Gracias.

[marcoszorrilla]

Aquí tienes un enlace.

Un Saludo.

[Miguel45]

Hola marcos zorrilla, gracias por indicarme el enlace, también lo voy a aprovechar.

Realmente te reconforta el comprobar el interés y compañerismo que se muestra en este foro.

Saludos.

Miguel.