如何实现报表的每一叶上都打印出总页数(100分)

  • 主题发起人 主题发起人 muyi
  • 开始时间 开始时间
M

muyi

Unregistered / Unconfirmed
GUEST, unregistred user!
如何实现在数据库报表的每一页都打印上总页数
 
qreport很简单只要用QRSysData控件
 
QuickReport1.Prepare;
QuickReport1.QRLabel1.Caption := IntToStr(QuickReport1.QRPrinter.PageCount);
//在QRLabel1中显示总页数
QuickReport1.Preview;
 
QuickReport1.Prepare;
QuickReport1.QRLabel1.Caption := IntToStr(QuickReport1.QRPrinter.PageCount);
//在QRLabel1中显示总页数
QuickReport1.Cleanup;
QuickReport1.Preview;

 
若你用的是QUICKREPORT的话,
好象DELPHI3的qreport里的QRSysData控件可以有当前页码和总页数的选项,
但是到了DELPHI5,却只有当前页码了!
哎,怎么程序越升级功能越弱?
没办法,只能自己计算总页数了。
 
若为delphi3
1.在报表窗体中加入QRSysData控件
2.选择其相应属性
方法二(编程实现):
1.放置一个标签(label)于页脚
2.计算出相应的纪录数(count)
3.计算相应每页可放置的纪录
4.2/3就是label的caption值.
 
接受答案了.
 
后退
顶部