获取报表页数.txt

大量Delphi开发资料

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



我们有时需要在打印前获取报表的打印页数

比如我们需要在页眉或页脚中打印“共 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；