Enumerar paginas en quickreport (1 de 2)

[juanlaplata]

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