Contador de paginas impressas

Delphi

10/01/2004

Alguem sabe como contar as paginsa impressas na impressora via delphi ?
Obrigado
Emilio


Emilio.cini

Emilio.cini

Curtidas 0

Respostas

Rafael Miguel

Rafael Miguel

10/01/2004

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


GOSTEI 0
Emilio.cini

Emilio.cini

10/01/2004

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


GOSTEI 0
Rafael Miguel

Rafael Miguel

10/01/2004

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


GOSTEI 0
POSTAR