在打印或打印预览前如何获取报表页数

类别:Delphi 点击:0 评论:0 推荐:
我们有时需要在打印前获取报表的打印页数, 比如我们需要在页眉或页脚中打印“共 xx 页 第 xx 页”,那如何实现呢? QuickRep生成Report之前,我们是无法得知报表页数的,而QuickReport是在打印或打印预览时才生成报表,换言之我们只有在 打印或打印预览前先将报表生成一次才能获取打印页数.生成报表的方法是 Prepare。参考以下的例子: 
... 
var nPageCount:integer; 
begin 
  {...} 
   QuickRep1.Prepare; 
   nPageCount:=QuickRep1.QRPrinter.PageCount; 
   QuickRep1.QRPrinter.Free; 
   QuickRep1.QRPrinter:=nil; 
   {在此修改QuickRep1,实现在页眉或页脚中打印“共 xx 页 第 xx 页” ... } 
   QuickRep1.PreView; 
   {...} 
End; 

本文地址:http://com.8s8s.com/it/it6032.htm