Quick Report

Para resolver este problema usando o QuickReport fiz o seguinte:

QuickReport.Prepare;
nTotalPagina := QuickReport.PageNumber;

no evento BeforePrint da banda que conterá o numero da página:

labelPagina.Caption := IntToStr( QuickReport.PageNumber) + ´ de ´ + IntToStr( nTotalPagina);

Colega, é meio ´quimica´ mas funciona.

Espero ter ajudado.

Nada cara...

Aparece


pagina 1 de 1
2 de 2
e assim vai


nao o total de pagina

Colega,

1a. [color=darkblue:805337be70]QuickReport.Prepare; [/color:805337be70] nTotalPagina := QuickReport.PageNumber;

Após dar o Prepare você pega o total de paginas e guarda na variavel nTotalPagina

2a. QuickReport.PreviewModal;
A cada página impressa o PageNumber será o número da pagina, como você já tem o total de páginas obtida no metodo PREPARE do quickreport, seria só fazer a ´quimica´.

Espero ter ajudado.

QuickReport.QrPrinter.PageCount;