fastreport 分栏打印(100)

  • 主题发起人 主题发起人 siking
  • 开始时间 开始时间
S

siking

Unregistered / Unconfirmed
GUEST, unregistred user!
fastreport 分栏后怎样补空白格式如下字段1 字段2 字段1 字段2A B A BA B A BA B 空白 空白当记录为奇数时,第二栏会空出一块,请问怎样在空白处画上表格
 
现在很少人用fastreport了吗
 
我也想知道
 
转摘:1、FastReport如何打印表格式的空行? var PageLine: integer;
//在現在頁列印到第幾行 PageMaxRow: integer=15;
//設定每頁列數procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := <Line> mod PageMaxRow;
if (PageLine = 1) and (<line> > 1) then
Engine.newpage;
child1.visible := False;
end;
//Footer1高度設為0procedure Footer1OnBeforePrint(Sender: TfrxComponent);var i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
child1.visible := True;
while i < PageMaxRowdo
begin
i := i + 1;
Engine.ShowBand(Child1);
//印空白表格 end;
child1.visible := False;
end;
begin
end.
 

Similar threads

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