fastreport报表中如何增加空行

【方法一】

原文 ： http://blog.hexun.com/i/blogclosed.aspx?m=1

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                                                   //最后一次扫描数据

      begin
         if (MasterData1.dataset. recordcount=<line>)  then
         begin
             j:=9-(MasterData1.dataset.recordcount mod 9) ;     //利用recordCount判断是否要补空行
             if ((MasterData1.dataset.recordcount rmod 9))<>0 then

             begin
                for t:=1 to j  do

                begin
                   engine.showband(child1);                                   //显示出空行Brand child1

                end

             end;
         end;
      end;
    end;
end;

begin
end.

安设一空:child1  当然要显现的行数你自己定  我此地示例为9

【方法二】

原文： http://topic.csdn.net/t/20050922/12/4286556.html

 

在MasterFooter1的OnBeforePrint中写下面的代码，

while   engine.freespace> child1.height   do

begin
    engine.showband(child1);     //显示出空行Brand child1
end