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;
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;