Page Header with Child
acgubamg2004
Ub??-MG
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.
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.
Comments
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.