打印报表时,在页脚实现“当前页/总页数”? 比如 "1/6"? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 将QRSysData的Data属性设为PageNumber可以显示当前页数,但不知怎样统计总页数 QuickRep1.Prepare;PageTot:=PageNumber; \\總頁數; 我用QRPreview做了一个中文的预览打印界面,现在不知如何能得到报表的总页数,请各位高手赐教! --------------------------------------------------------------- QuickReport中的 public vPageCount: Integer; Form1.Button1OnClick(Sender: TObject);------注意这里不是OnPreview begin QuickReport.Prepare; QuickReport.vPageCount := QuickReport.QRPrinter.PageCount; //上面代码不能放入OnPreview区!!!!注意这里的位置关系!! StatusBar1.Panels[0].Text := IntToStr(QuickReport.vPageCount); QuickReport.Preview; -- 这里才Preview end; 上面代码经调度通过!如还有问题,请自行检查解决! 我用QRPreview做了一个中文的预览打印界面,现在不知如何能得到报表的总页数,请各位高手赐教! --------------------------------------------------------------- QuickReport中的 public vPageCount: Integer; Form1.Button1OnClick(Sender: TObject);------注意这里不是OnPreview begin QuickReport.Prepare; QuickReport.vPageCount := QuickReport.QRPrinter.PageCount; //上面代码不能放入OnPreview区!!!!注意这里的位置关系!! StatusBar1.Panels[0].Text := IntToStr(QuickReport.vPageCount); QuickReport.Preview; -- 这里才Preview end; 上面代码经调度通过!如还有问题,请自行检查解决! QuickRep1.Prepare;QRLable1.Caption:=inttostr(quickrep1.printer.pagecount)+'/'+inttostr(quickrep1.printer.pagenumber); 有一个bug 在这里:QuickReport.Prepare; QuickReport.vPageCount := QuickReport.QRPrinter.PageCount; //上面代码不能放入OnPreview区!!!!注意这里的位置关系!! StatusBar1.Panels[0].Text := IntToStr(QuickReport.vPageCount); //::Note::::::::::::::::::::: QuickReport.QrPrinter.Free; QuickReport.QrPrinter:=nil; //:::::::::::::::::::::::::::: QuickReport.Preview; -- 这里才Preview QuickRep1.Prepare;QRLable1.Caption:='/'+inttostr(quickrep1.printer.pagenumber);之QRLable1前放一个QRSysData1其属性data:=qrsPageNumber;达到效果。 Form.Caption 问题 cxgrid中怎么对选定的几条记录进行修改啊? FormStyle设置成fsMDIchild后,form.query1.close出错 求助:點擊DBGrid中CELL下面的下拉框觸發什麼事件? 遇到一个小小的问题,请大家帮忙?? 这个FASTREPORT的问题,有100分!help啊!!!! 同志们,我辞职了,现在很迷茫,有谁帮忙想个出路?或者去哪里玩啊?我会散分的! 生日散分!!!11:50结帐 这个统计如何写? 感谢Delphi论坛,欢迎讨论 vfp报表如何自定义纸张大小,在线急等! 很简单VCL控件问题 (50分) 1小时后结帐^^
PageTot:=PageNumber; \\總頁數;
---------------------------------------------------------------
QuickReport中的
public
vPageCount: Integer;
Form1.Button1OnClick(Sender: TObject);------注意这里不是OnPreview
begin
QuickReport.Prepare;
QuickReport.vPageCount := QuickReport.QRPrinter.PageCount;
//上面代码不能放入OnPreview区!!!!注意这里的位置关系!!
StatusBar1.Panels[0].Text := IntToStr(QuickReport.vPageCount);
QuickReport.Preview; -- 这里才Preview
end;
上面代码经调度通过!如还有问题,请自行检查解决!
---------------------------------------------------------------
QuickReport中的
public
vPageCount: Integer;
Form1.Button1OnClick(Sender: TObject);------注意这里不是OnPreview
begin
QuickReport.Prepare;
QuickReport.vPageCount := QuickReport.QRPrinter.PageCount;
//上面代码不能放入OnPreview区!!!!注意这里的位置关系!!
StatusBar1.Panels[0].Text := IntToStr(QuickReport.vPageCount);
QuickReport.Preview; -- 这里才Preview
end;
上面代码经调度通过!如还有问题,请自行检查解决!
QRLable1.Caption:=inttostr(quickrep1.printer.pagecount)+'/'+inttostr(quickrep1.printer.pagenumber);
QuickReport.vPageCount := QuickReport.QRPrinter.PageCount;
//上面代码不能放入OnPreview区!!!!注意这里的位置关系!!
StatusBar1.Panels[0].Text := IntToStr(QuickReport.vPageCount);
//::Note:::::::::::::::::::::
QuickReport.QrPrinter.Free;
QuickReport.QrPrinter:=nil;
//::::::::::::::::::::::::::::
QuickReport.Preview; -- 这里才Preview
QRLable1.Caption:='/'+inttostr(quickrep1.printer.pagenumber);之QRLable1前放一个QRSysData1其属性data:=qrsPageNumber;达到效果。