Hola.
Intenta al modo de este ejemplo:
Código Delphi
[-]
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
FPageNo := 1; end;
procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
QRLabel2.Caption := IntToStr( FPageNo );
Inc( FPageNo );
end;
(*) En el ejemplo
FPageNo es una variable privada de
TForm1.
Saludos