关于报表的页数(100分)

  • 主题发起人 主题发起人 小明
  • 开始时间 开始时间

小明

Unregistered / Unconfirmed
GUEST, unregistred user!
我用Quick Report做报表时,
想得到报表的总页数,不只
用什么方法.
 
用TQRSysData控件 data属性: qrsPageCount!
 
我使用的是delphi4.0版本,
该TQRSysData控件的data属性中
没有qrsPageCount,只有qrsPageNumber,
但qrsPageNumber只显示当前的页号,
不能统计出报表共有几页.
 
quickrep.Prepare;
PrintDialog1.MaxPage := quickrep.Printer.PageCount;
quickREP.QRLabel13.Caption := '共'+TRIMLEFT(INTTOSTR(PrintDialog1.MaxPage))+'页)';
 
我想‘小明’问的是怎样在每页报表中显示"第?页共?页",
我也有这个问题!谁能指点一二?
 
Wuyi 说的很明白,
quickrep.Prepare;//先排版出合计页数
quickrep.Printer.PageCount //合计页数
quickREP.QRLabel13.Caption := .....;
//处理合计页数标签
 
wuyi说的很清楚了。
 
我照wuyi的方法做了,但是得到的总页数为0,为什么呢?
 
To :Thinboy
quickrep.Prepare;
PrintDialog1.MaxPage := quickrep.Printer.PageCount;
quickrep.cleanup;
//必须加上这一句
quickREP.QRLabel13.Caption := '共'+TRIMLEFT(INTTOSTR(PrintDialog1.MaxPage))+'页)';
 

还是E.com细致。
同意!
 
To E.Com
谢谢!不过,当我加上这一个Quickrep.cleanup的时候,系统编译就出错了
报告:Undeclared identifier !
这是为什么?我找不到cleanup这个过程或函数哦!
 
delphi4安装好补丁包后再用以上方法,否则有可能还是无法得到总页数。
 
I use D3 and have no problem,Ido
n't use "
quickrep.cleanup;
//必须加上这一句"
or you use what delphi fan2 say.
 
多人接受答案了。
 
后退
顶部