如何用QUICKREPORT控件获取所打印的报表的总页数??? 我知道QUICKREPORT控件可以获取当前页的number(用sysdata控件即可),但报表总的页数(count)怎么获取?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 FPageCount:=quickRep1.Printer.PageCount; add:your quickRep1 need prepare before use the sentence up. Count:=quickRep1.Printer.PageCount; 我用为什么就不可以呢?我在quickRep1上加了一个lable ,让lable.caption:=quickRep1.Printer.PageCount;就是不对啊。第一页出来1,第二页出来2。这行代码应该在什么事件里面填呢? ......... private { Private declarations }//定義 FPageCount:integer;.........//賦值qry.close;qry.sql.text:='....';//報表中獲得數據的語句qry.open;QuickRep1.prepare;FPageCount:=QuickRep1.Printer.PageCount;.........放置一個QrSysData在需要顯示的地方,設置其Data屬性為qrsPageNumber然後在它的onprint事件裡面,加上代碼: Value:=Value+' of '+IntToStr(FPageCount);就 OK delphi 2010断点不能用 “北京IT之夜”大型Party 求代码 Id3 tag for wma delphi 能实现这种 远程更新 热心用户gytyl(郭三少爷)请进来领分。 如何增加可修改的数据集字段? 我有一个文件读写的问题,求助 关于不缓存到临时文件夹的验证码图片的保存 如何控制windows的启动 看完文章就给分! Delphi7下使用TTable控件当数据变化时提示Invalid RowID
your quickRep1 need prepare before use the sentence up.
我在quickRep1上加了一个lable ,让lable.caption:=quickRep1.Printer.PageCount;
就是不对啊。第一页出来1,第二页出来2。
这行代码应该在什么事件里面填呢?
private
{ Private declarations }
//定義
FPageCount:integer;
.........
//賦值
qry.close;
qry.sql.text:='....';//報表中獲得數據的語句
qry.open;
QuickRep1.prepare;
FPageCount:=QuickRep1.Printer.PageCount;
.........
放置一個QrSysData在需要顯示的地方,設置其Data屬性為qrsPageNumber
然後在它的onprint事件裡面,加上代碼:
Value:=Value+' of '+IntToStr(FPageCount);
就 OK