Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Enumerar paginas en quickreport (1 de 2) (https://www.clubdelphi.com/foros/showthread.php?t=83995)

negrokau 26-08-2013 14:47:55

Enumerar paginas en quickreport (1 de 2)
 
Hola amigos... se que a lo mejor para algunos sera sencillo, pero mi pregunta es como enumerar las paginas del quickreport ejemplo (1 de 2) o (1/2), probe algunas formas pero no me funcionan ninguna de ellas.... les agraadeceria su ayuda... desde ya muchas gracias... linda semana para todos....

look 26-08-2013 16:20:00

Cita:

Empezado por negrokau (Mensaje 466048)
Hola amigos... se que a lo mejor para algunos sera sencillo, pero mi pregunta es como enumerar las paginas del quickreport ejemplo (1 de 2) o (1/2), probe algunas formas pero no me funcionan ninguna de ellas.... les agraadeceria su ayuda... desde ya muchas gracias... linda semana para todos....

coge un QRSysData y ponlo en la banda que tu quieras, luego de vas a la propiedad data del componente y veras varias opciones entre ellas qrsPageNumber

juanlaplata 10-09-2013 18:01:37

Otra alternativa:
Colocar un TQRExpr llamada PageNum en la banda que quieras mostrar ( FooterBand en mi caso).
En la propiedad Expression colocar 'Página ' + STR(PAGENUMBER) + ' / '

Código Delphi [-]
       ...
       Form1.Reporte.Prepare;
       i := Form1.Reporte.QRPrinter.PageCount;
       Form1.PageNum.Expression := Form1.PageNum.Expression + '+'+ QuotedStr(intToStr(i)) ;
       Form1.Reporte.Preview;
       ...


La franja horaria es GMT +2. Ahora son las 12:12:52.

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