——如何知道共有多少页?—— 我想实现这样的功能,像WORD一样,显示第X页/共X页共X页的——X——如何知道呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 I don't know,I want to know too! 如果是QUICKREP的话:quickrep1.Prepare;qrlabel19.Caption:=trim(inttostr(quickrep1.Printer.PageCount)); ///// 4 返回报表的总页数 /////function PageCount(QR :TQuickRep):String;begin QR.Prepare; QR.ReportTitle:='打印预览'; Result:='共 '+IntToStr(QR.Printer.PageCount)+' 页';end; 对于rave在设计时他有这几个属性的.Report.CurrentPage 当前页Report.TotalPages 总共的页数Report.RelativePage 令人失望的Delphi 2006!!!(如何安装ActiveX) 电信恶意弹出广告 帮忙找一下错误,有分数的! adodataset + dbgrideh 定位到下一条记录? 在触摸屏查询系统中怎样设计模拟键盘输入数字,最好也能输入中文 ? 我也来花钱求师教delphi 数据库安装 有没有方法在richedit or memo 中写进string 时使不同的行有不同的字体颜色? 真不理解delphi的语法特点 ,求语法标准 问一个关于ADO连接的问题?用ADOQuery一open老是出错? 英雄之编程篇(暴笑) 寻找通用扫描仪控件??????
quickrep1.Prepare;
qrlabel19.Caption:=trim(inttostr(quickrep1.Printer.PageCount));
function PageCount(QR :TQuickRep):String;
begin
QR.Prepare;
QR.ReportTitle:='打印预览';
Result:='共 '+IntToStr(QR.Printer.PageCount)+' 页';
end;
Report.CurrentPage 当前页
Report.TotalPages 总共的页数
Report.RelativePage