W weifang Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-20 #1 我用delphi6.0自帶的QuickRep做報表,用QRSysData只能顯示是第幾頁,我現在想在每頁的頁尾除了顯示第幾頁外,還要顯示總共有多少頁! 請問個位:怎麼在每頁的頁尾顯示共多少頁呢?怎麼解決?
我用delphi6.0自帶的QuickRep做報表,用QRSysData只能顯示是第幾頁,我現在想在每頁的頁尾除了顯示第幾頁外,還要顯示總共有多少頁! 請問個位:怎麼在每頁的頁尾顯示共多少頁呢?怎麼解決?
H hongxing_dl Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-20 #2 var npagecount:integer; begin QuickRep1.Prepare; nPageCount:=QuickRep1.QRPrinter.PageCount; qrlabel1.caption:='共'+IntToStr(nPageCount);//显总页 //QuickRep1.QRPrinter.Free; //QuickRep1.QRPrinter:=nil; quickrep1.preview; end;
var npagecount:integer; begin QuickRep1.Prepare; nPageCount:=QuickRep1.QRPrinter.PageCount; qrlabel1.caption:='共'+IntToStr(nPageCount);//显总页 //QuickRep1.QRPrinter.Free; //QuickRep1.QRPrinter:=nil; quickrep1.preview; end;
Y ymqpc Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-20 #3 Report.Prepare; PageCount:=Report.QRPrinter.PageCount; Report.CleanupInstance; PageCountNum.Expression:=''''+'第'+''''+'+PAGENUMBER+'+''''+'页 总'+IntToStr(PageCount)+'页'+''''; Report.Preview;
Report.Prepare; PageCount:=Report.QRPrinter.PageCount; Report.CleanupInstance; PageCountNum.Expression:=''''+'第'+''''+'+PAGENUMBER+'+''''+'页 总'+IntToStr(PageCount)+'页'+''''; Report.Preview;