在报表中打印固定行（不足时补充空行）----使用fastreport 4.6 和 Delphi 7

var
  lineNo:   integer;                                                                         
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  lineNo := <line>;                                   
end;

procedure Footer1OnBeforePrint(Sender: TfrxComponent);
begin
  while lineNo  <= 31 do
  begin
    Engine.showband(child1);
    lineno := lineno + 1;                                                   
  end;           
end;