還是delphi報表問題。真頭疼!大家進來看看(50分)

  • 主题发起人 主题发起人 weifang
  • 开始时间 开始时间
W

weifang

Unregistered / Unconfirmed
GUEST, unregistred user!
我用delphi6.0自帶的QuickRep做報表,用QRSysData只能顯示是第幾頁,我現在想在每頁的頁尾除了顯示第幾頁外,還要顯示總共有多少頁!
請問個位:怎麼在每頁的頁尾顯示共多少頁呢?怎麼解決?
 
var
npagecount:integer;
begin
QuickRep1.Prepare;
   nPageCount:=QuickRep1.QRPrinter.PageCount;
qrlabel1.caption:='共'+IntToStr(nPageCount);//显总页
   //QuickRep1.QRPrinter.Free;
   //QuickRep1.QRPrinter:=nil;
quickrep1.preview;
end;
 
Report.Prepare;
PageCount:=Report.QRPrinter.PageCount;
Report.CleanupInstance;
PageCountNum.Expression:=''''+'第'+''''+'+PAGENUMBER+'+''''+'页 总'+IntToStr(PageCount)+'页'+'''';
Report.Preview;
 
多人接受答案了。
 
后退
顶部