——如何知道共有多少页？——

Question

我想实现这样的功能，像WORD一样，显示第X页/共X页
共X页的——X——如何知道呢？

Answer 1

I don't know,I want to know too!

Answer 2

如果是QUICKREP的话：
quickrep1.Prepare;
qrlabel19.Caption:=trim(inttostr(quickrep1.Printer.PageCount));

Answer 3

/////      4  返回报表的总页数    /////
function  PageCount(QR :TQuickRep):String;
begin
   QR.Prepare;
   QR.ReportTitle:='打印预览';
   Result:='共 '+IntToStr(QR.Printer.PageCount)+' 页';
end;

Answer 4

对于rave在设计时他有这几个属性的.
Report.CurrentPage 当前页
Report.TotalPages  总共的页数
Report.RelativePage