TQRSysData的Data属性设为qrsPageNumber。

解决方案 »

  1.   

    quickrep.prepare;
    quickrep.????;自己查一吧,记不清了
      

  2.   

    找到了:
    //获取报表总页数
    begin
    var
      nPageCount:Byte;
    begin
      with DataSource.DataSet do
      try
        DisableControls;   //控制Grid中数据,使之不随指针移动而滚动    QuickRep.Prepare;
        nPageCount:=QuickRep.QRPrinter.PageCount;
        QuickRep.QRPrinter.Free;
        QuickRep.QRPrinter:=nil;
        Page_L.Caption:='共'+IntToStr(nPageCount)+'页';
      finally
        EnableControls;
      end;
    end;