Imprimir Página x de n

[Miguel45]

Hola compañeros.
Antes que nada daros las gracias anticipadas por la atención prestada.
He consultado en el foro los mensajes y respuestas existentes sobre este tema, y la verdad es que no he consiguido encontrar la solución.
Simplemente pretendo que en los informes que hago, además del número de página, me indique el total de páginas que tiene el informe (página 3 de 15). Creo que deber ser algo simple, pero no consigo encontrar la solución.
Los programas los hago en Delphi 7 y utilizo QReport para los informes.
De nuevo gracias anticipadas.

Saludos.

Miguel.

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