我怎么也得不到报表的总页数(DELPHI4下)。(100分)

  • 主题发起人 主题发起人 jgb002
  • 开始时间 开始时间
J

jgb002

Unregistered / Unconfirmed
GUEST, unregistred user!
QuickReport1.Prepare; //必须
QuickReport1.QRLabel1.Caption := IntToStrQuickReport1.QRPrinter.PageCount); //此处得到总页数
QuickReport1.Preview;
这种方法得到的总是 0。
 
QuickReport1.Prepare;
PrintDialog1.MaxPage:=QuickReport1.Printer.PageCount;//这里是Printer
QuickReport1.QRLabel1.Caption :=
'共'+IntToStr(PrintDialog1.MaxPage)+'页';
QuickReport1.Preview;
 
呵呵,数据库连接了没有?
 
数据库连接了没有?连接的Dataset有没有数据?
你的代码没问题,我试过了。
不行删除Dataset,再新加一次。
 
代码有问题:
QuickReport1.QRLabel1.Caption := IntToStr(QuickReport1.QRPrinter.PageCount);
IntToStr()怎么少了一边?
 
delphi4的版本是5.33时必须安装补丁包,否则就会出现此现象!
 
我想得到5.33的升级包
 
应该是这样的:
var nPageCount:integer;
begin
  {...}
   QuickRep1.Prepare;
   nPageCount:=QuickRep1.QRPrinter.PageCount;
   QuickRep1.QRPrinter.Free;
   QuickRep1.QRPrinter:=nil;
   {在此修改QuickRep1,实现在页眉或页脚中打印"共 xx 页 第 xx 页" ... }
   QuickRep1.PreView;
   {...}
End;
 
fstao的办法不行!
 
我以前就是这样做的,怎么不行?
 
fstao:报错“Exception EAccessViolation in module my_program.exe..
.... ”。
我和jgb002同病相怜,以上方法都试过了,都不行!
 
同意ll8,一样同病相怜,那位大虾肯赐教!
 
不会吧,但我行啊! 不过是在delphi5试。
 
接受答案了.
 
后退
顶部