有没有人可以告诉我,怎么样获得总页数,事用什么变量?

h_hx 2003-08-31 10:17:00
如题。谢谢!
...全文
27 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
jaunmai 2003-09-01
  • 打赏
  • 举报
回复
interface //Form1加下句

uses quickrpt
jaunmai 2003-09-01
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TFormprint,Formprint);
Formprint.Report.Prepare;
Formprint.QRLabel4.Caption:=inttostr(Formprint.Report.Printer.PageCount);
Formprint.Report.Preview;
end;
h_hx 2003-08-31
  • 打赏
  • 举报
回复
是的,用的是Delphi自己带的报表。
liuhelin 2003-08-31
  • 打赏
  • 举报
回复
你用的什么东西阿
问题都说不清楚
qreport
rave
还是其他
对了是做报表么?
wfn 2003-08-31
  • 打赏
  • 举报
回复
也许对你有帮助:
Var nPageCount:integer;
begin
{...};
QuickRep1.prepare;
nPageCount:=QuickRep1.QRPrinter.PageCount;
QuickRep1.QRPrinter.Free;
QuickRep1.QRPrinter:=nil;
QuickRep1.PreView;
{..};
end;

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧