Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Delphi 7 QRreport imprimir numero de pagina (https://www.clubdelphi.com/foros/showthread.php?t=95759)

emeritos 15-07-2022 13:41:55

Delphi 7 QRreport imprimir numero de pagina
 
Hola dilferos.

Utilizo Delphi 7 y esto imprimiendo con QRreport y me gustaria imprimir el número de pagina de esta manera 1/10, 2/10 .... o algo parecido.
Lo que quiero es imprimir el numero de pagina y segudo las paginas que hay en esa impresion.

¿Como lo puedo hacer?

Gracias

Casimiro Notevi 15-07-2022 14:18:04

Debes tener un componente o propiedad que sea algo así como printer.pagetotal, printer.pagenum, printer numoftotal, etc.
Es lo normal en todos los generadores de informes.

chenech 15-07-2022 15:15:10

Aqui lo tienes
 
Page y TotalPages creo que es lo que necesitas
Código:

https://www.fast-report.com/documentation/ProgMan/index.html?numbering_of_pages_in_a_composite_report.htm

Casimiro Notevi 15-07-2022 16:13:04

Es QuickReport.

chenech 15-07-2022 16:18:20

perdon, se me fue la vista a fastreport :-)
 
Tienes que hacer el prepare para que te devuelva el número de páginas.
Luego guardas el PageCount en una variable y por último le digo que el campo número de página es igual a Value + "/" + variable.
El ejemplo es en C++ pero es casi igual en Delphi creo.
Código:

Form165->QuickReport1->Prepare();
short sPaginas = (short)Form165->QuickReport1->PageCount;


Casimiro Notevi 15-07-2022 16:54:17

El "Prepare" en algunos generadores de informes se llama "Doble pasada".
No sé qué usará qreport.

chenech 15-07-2022 23:22:28

Asi es, doble pasada
 
Si, así es, es una doble pasada para que se carge la propiedad pagecount del report, luego ya puedas usar eso como quieras.
Creo que en Delphi debe ser algo así:
Quickreport1.Prepare;
En C++ es:
Quickreport1->Prepare();


La franja horaria es GMT +2. Ahora son las 00:56:48.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi