fastreport报表中如何增加空行
fastreport报表中如何增加空行
一页记录行没打印完,想在后面添加空白行,如何做?在线等,谢谢
[解决办法]
var
i:integer;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if (( <Line#> -1) mod 9 =0)and (( <Line#> -1)> 0) then
begin
engine.newpage;
end;
i:= <line#> +1;
end;
procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
var
j:integer;
t:integer;
begin
if ( <Page#> = <TotalPages#> ) then
begin
if engine.finalpass then
if (MasterData1.dataset.recordcount= <line> ) then
begin
j:=9-(MasterData1.dataset.recordcount mod 9) ;
if ((MasterData1.dataset.recordcount mod 9)) <> 0 then
for t:=1 to j do
engine.showband(child1);
end;
//engine.showband(child1);
end;
end;
begin
end.
明白?
设置一空:child1 当然要显示的行数你自己确定 我这里举例为9
