fastreport 打印问题 打印时最后一页纸只剩下了一半,如何将这一半打印空的表格,而不是一片空白 ( 积分: 30 )

  • 主题发起人 主题发起人 zhaolibo
  • 开始时间 开始时间
Z

zhaolibo

Unregistered / Unconfirmed
GUEST, unregistred user!
fastreport 打印问题 打印时最后一页纸只剩下了一半,如何将这一半打印空的表格,而不是一片空白
 
fastreport 打印问题 打印时最后一页纸只剩下了一半,如何将这一半打印空的表格,而不是一片空白
 
画表格补齐空行。
思路:放入FOOTER BAND、CHILD BAND,FOOTER中KEEP CHILD设为TRUE,
在CHILD中画表格与MASTER BAND一致,然后循环由1 TO 10-已打印行数
即可。
procedure Page1OnManualBuild(Sender: TfrxComponent);
var
DataSet: TfrxDataSet;
i,j: Integer;
begin
DataSet := MasterData1.DataSet;
DataSet.First;
i := 0;
While not DataSet.Eofdo
begin
// Inc(i);
Engine.ShowBand(MasterData1);
DataSet.Next;
i:=i+1;
if i mod 10 = 0 then
Engine.NewPage;
end;
for j := 1 to (10 - i mod 10)do
Engine.ShowBand(child1);
end;
 
to 一团火:
谢谢,这段代码在哪写?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部