请教一个关系Quickreport问题!(200分)

  • 主题发起人 主题发起人 梦菲斯
  • 开始时间 开始时间

梦菲斯

Unregistered / Unconfirmed
GUEST, unregistred user!
我要用Quickrep做一个打印公文报表程序,由于有的公文可能有2-3页,但每一份公文只能有一个页脚(我用页脚打印关键字、抄送
抄报等信息),这一个页脚应该打印在最后一张纸的底部,请问应该如何实现!还有没有其它更好的方法谢了!
 
不是有个summary吗!它可以实现你所讲的功能!
 
在頁腳打印事件中寫:
var pagecount:integer;
procedure TForm1.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if quickrep1.PageNumber=pagecount then
//如果是最后一頁,pagecount值由下面過程得到
PrintBand:=true
else
PrintBand:=false;
end;

至于總頁次的值可以在
procedure TForm1.FormCreate(Sender: TObject);
//報表所在窗口
begin
quickrep1.Prepare;
pagecount:=quickrep1.QRPrinter.PageCount;//總頁次
quickrep1.QRPrinter.free;
quickrep1.QRPrinter:=nil;
end;
 
是不是说要在报表的底部才行,检索一下,有不少的.
 
用fastreport好多了.
 
接受答案了.
 
后退
顶部