QuickReport中可否填充满整张纸打印? (100分)

  • 主题发起人 主题发起人 tanxh
  • 开始时间 开始时间
T

tanxh

Unregistered / Unconfirmed
GUEST, unregistred user!
QuickReport中打印时可否填充满整张纸?
报表设计中使用了以下Band:
detailBand
summaryBand
pagefooterVand
请问在最后一页,若数据记录不够多的话,能否调整summaryBand高度,
使之与PAGEFOOTERBAND相接。怎么实现?
在QR中或否还有其他方式可实现填充满整页打印???
我知道ReportMachine是可以的。
谢谢!
 
最笨也是最好理解和使用的是在程序中加判断语句,以空记录来补足:(最好在临时表中使用)
我在最开始使用QuickReport时,是这样的:(设每页打印18行)
for i:=0 to (17 - ADOQuery1.RecordCount mod 18)do
begin
adoquery1.Append;
....
end;
使用QuickReport实在是太令人??我早就不用了,ReportMachine就不错呀!
 
用了很久,换很费事的。没办法
 
tanxh:磨刀不误砍柴工,熟的东西并不等于快的东西.
 
现在最好用的打印的东东是什么?
 
QuickReport有个CurrentY属性,它可以指定控件打印在页中的位置:
实现方法如下:一个笨方法,别见笑
var
vl_currentY: Integer;
{$R *.DFM}
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
vl_currentY := QuickRep1.CurrentY;
//取得最后打印的明细的高
end;

procedure TForm1.SummaryBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
//设置SummaryBand1的高,如果有偏差你可以自己调一下最后+后的数值或*后的数值
QuickRep1.CurrentY := vl_currentY + DetailBand1.Height * 2 + 20;
end;


 
没事做,听听。
 
打印报表什么控件好?
 
各位大侠,能告诉我ReportMachine控件的下载地址吗?
谢谢! wang2855@etang.com
 
自己写一个报表打印控件,以后想怎样打印都可以!!!
 
To wang2855:
http://ReportMachine.delphibbs.com
 
直接在quickreport上放上多个横线,把间距设好就行了。即不使用子板的扩展
 
多人接受答案了。
 

Similar threads

后退
顶部