Contar páginas que foram impressas

Alguém sabe?


Como verifico se o usuário clicou no botão ´imprimir´ do preview do quick report?

:cry:

Crie uma variável do tipo Inteiro. na sessão private ou public da unit que contém o TQuickRep
ex.:
.
.
.
public
nPaginas: integer;

No evento BeforePrint do TQuickRep zere a vari´vel
Ex.:

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
nPaginas:= 0;
end;

No evento AfterPrint atribua o numero de páginas do relatório à esta variável.
Ex.

procedure TForm1.QuickRep1AfterPrint(Sender: TObject);
begin
nPagina:= QuickRep1.Printer.PageCount;
end;

Em seguida verifique o valor de nPaginas.
Se for maior do que zero é porque o relatório foi impresso. Obviamente isto indica que ele clicou no botão imprimir.

Espero que ajude...