...
var nPageCount:integer；
begin
{...}
QuickRep1.Prepare；
nPageCount:=QuickRep1.QRPrinter.PageCount；
QuickRep1.QRPrinter.Free；
QuickRep1.QRPrinter:=nil；
{在此修改QuickRep1，实现在页眉或页脚中打印“共 xx 页 第 xx 页” ... }
QuickRep1.PreView；
{...}
End；
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
