D dongberlin Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-11 #2 var nPageCount:integer; begin {...} QuickRep1.Prepare; nPageCount:=QuickRep1.QRPrinter.PageCount; QuickRep1.QRPrinter.Free; QuickRep1.QRPrinter:=nil; {在此修改QuickRep1,实现在页眉或页脚中打印“共 xx 页 第 xx 页” ... } QuickRep1.PreView; {...} End;
var nPageCount:integer; begin {...} QuickRep1.Prepare; nPageCount:=QuickRep1.QRPrinter.PageCount; QuickRep1.QRPrinter.Free; QuickRep1.QRPrinter:=nil; {在此修改QuickRep1,实现在页眉或页脚中打印“共 xx 页 第 xx 页” ... } QuickRep1.PreView; {...} End;