Fórum Quick Report #282237
19/05/2005
0
Abraços...
Tremonti
Curtir tópico
+ 0Posts
19/05/2005
Joaoshi
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.
Gostei + 0
19/05/2005
Tremonti
Aparece
pagina 1 de 1
2 de 2
e assim vai
nao o total de pagina
Gostei + 0
20/05/2005
Joaoshi
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.
Gostei + 0
20/05/2005
Gandalf.nho
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)