共几页如下:
procedure TFm_ReportPage2.QuickRep4BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
PageCount :integer;
begin
if QuickRep4.RecordNumber=QuickRep4.RecordCount then
begin
PageCount :=quickrep4.PageNumber;
QRLabel82.Caption :='共 '+IntToStr(PageCount)+' 页';
end;