在打印或打印预览前如何获取报表页数[困惑－在线等待100分](100分)

[?][?]使用如下方式：
QuickRep1.Prepare;
QuickRep1.ReportTitle := 'This report has ' +
IntToStr(QuickRep1.QRPrinter.PageCount) + ' pages';
QuickRep1.QRPrinter.Free;
QuickRep1.QRPrinter := nil;
QuickRep1.Preview;
为何得到的是0！
如何获得在程序中报表的页数？

使用delphi 4 !

暂时用记录数 div 每张打印的记录数＋1解决！等待中

不会吧，
quickrep1.Prepare;
qrlabel4.Caption:=inttostr(quickrep1.Printer.PageCount);
我用此方法多次了，均无问题。