Numerador de hojas en el Beforeprint

[ecfisa]

Hola.

Intenta al modo de este ejemplo:

Código Delphi [-]
// BeforePrint, iniciar contador de páginas
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  FPageNo := 1;  // (*)
end;

// OnStartPage mostrar contador en etiqueta e incrementarlo
procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
  QRLabel2.Caption := IntToStr( FPageNo );
  Inc( FPageNo );
end;

(*) En el ejemplo FPageNo es una variable privada de TForm1.

Saludos