用 quick report做报表 如何取得总页数!(在线等待) 用 quick report做报表 如何取得总页数! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用QRPreview的OnPageAvailable事件中procedure TForm1.QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);begin 总页数:=PageNum;end; 或者你试一下:self.QuickRep1.Printer.AvailablePages quickrep1.prepare;quickrep1.qrl_PageCount='共'+inttostr(qrukcrep1.printer.pagecount)+'页' quickreport.prepare;pageCount := quickreport.printer.pageCount 怎样像杀毒软件一样实时监控某个目录的文件变化? 关于delphi的查询问题 用Delphi 6如何编写发送IP包的问题? 谁能借用一个文件给我?qtintf.dll !!!急 能下载成功delphi6.0企业版的网站到哪找? table 大家都用 sql server的数据倒入功能把,我想用delphi,怎么控制? 请问大家, CTTS。OCX 这个语音控件在delphi 中可以用吗?我的为什么不行,谁有这个控件可以给我一个吗?? 如何在不同的combobox显示不同的内容 DELPHI一个表单定义的过程,怎样在另一个表单调用 修改可执行程序 一个比较棘手的问题:为什么会这样呢?
procedure TForm1.QRPreview1PageAvailable(Sender: TObject;
PageNum: Integer);
begin
总页数:=PageNum;
end;
quickrep1.qrl_PageCount='共'+inttostr(qrukcrep1.printer.pagecount)+'页'
pageCount := quickreport.printer.pageCount