Fórum Contador de paginas impressas #205549

Fala Emilio.

Bom, você pode fazer o seguinte:

No método que vc for utilizar para chamar o relatório. Antes de dar o preview, vc precisa preparar o relatório para que o documento fosse gerado na memória. Depois pegar o número de páginas na propriedade QRPrinters do Relatório e atribuir esse valor a um caption do relatório. Aqui um exemplo:


procedure TPrg.MostraRelatorioClick(Sender: TObject);
Begin
if QRReport = nil then // Se for nulo, ele cria o relatório.
QRReport := TQRReport.Create(Self);
QRReport.Prepare; // Preparação do relatório
QRReport.LblContador.Caption := InttoStr(QRReport.QRPrinter.PageCount); // Atribuição de número de páginas usando Propriedade QRPrinter
QRReport.Preview; // Mostra o formulário
End;


Espero que tenha ajudado.

Atenciosamente,

Rafael Cabral

nao vou imprimir via delphi, eu quero fazer o programa tipo, pra controlar quantas paginas foram empressas na impressora, independente de onde vieram, word, acrobat...

Ah sim, desculpe. Achei que vc queria imprimir num relatório.