Page Header with Child

acgubamg2004

I have the folow situation

PageHeader
Chid of pageheader

script:

var
iConta: integer;

procedure PageHeader1OnAfterPrint(Sender: TfrxComponent);
begin
// Band Page Header = it it does not work !!!
// here only one time is printed matter, to put the space is used in the impression

for iConta := 1 to 3 do
begin
Engine.ShowBand(FilhaCabecalho);
end;


end;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
// Print: Band Master - It work !!!
for iConta := 1 to 3 do
begin
Memo1.Lines[0]:= 'child band master = ' + inttostr(iconta);
Engine.ShowBand(Filha1);
end;
end;

begin

end.

Why band FilhaCabecalho doesnt show memo ?

thanks.

acgubamg2004

My Solution

var
iContaLoop, iConta: integer;

procedure PageHeader1OnAfterPrint(Sender: TfrxComponent);
begin
icontaloop:= 0;
end;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if iContaLoop = 0 then
begin
for iConta := 1 to 3 do
Engine.ShowBand(FilhaCabecalho);
iContaLoop := 1;
end;
end;

begin

end.