怎么样显示报表的总页数？

我给你写段(QuickRpt为放在YourRptName窗体上的quickreport)：
    YourRptName := TYourRptName.Create(Self);
    try
      try
        YourRptName.QuickRpt.Prepare;
        PageCount := YourRptName.QuickRpt.QRPrinter.PageCount;
      finally
        YourRptName.QuickRpt.QRPrinter.Free;
        YourRptName.QuickRpt.QRPrinter := nil;
      end;
      YourRptName.QuickRpt.Preview;
    finally
      YourRptName.Free;
    end;