Here is the before but there is nothing after.
var
ntimes,i:integer;
procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);
begin
if engine.freespace < reportsummary1.height then
begin
while engine.freespace > Child1.height do
begin
engine.showband(Child1);
end;
engine.newpage;
end;
if engine.freespace > ReportSummary1.height then
begin
if engine.freespace > ReportSummary1.height + child1.height then
begin
ntimes := int((engine.freespace-reportsummary1.height)/child1.height);
for i := 1 to ntimes do
begin
engine.showband(Child1);
end;
engine.cury := engine.pageheight -reportsummary1.height - pagefooter1.height-1;
end;
end;
end;
procedure ReportSummary2OnBeforePrint(Sender: TfrxComponent);
begin
if engine.freespace < reportsummary2.height then
begin
while engine.freespace > Child2.height do
begin
engine.showband(Child2);
end;
engine.newpage;
end;
if engine.freespace > ReportSummary2.height then
begin
if engine.freespace > ReportSummary2.height + child2.height then
begin
ntimes := int((engine.freespace-reportsummary2.height)/child2.height);
for i := 1 to ntimes do
begin
engine.showband(Child2);
end;
engine.cury := engine.pageheight -reportsummary2.height - pagefooter3.height-1;
end;
end;
end;
procedure ReportSummary3OnBeforePrint(Sender: TfrxComponent);
begin
if engine.freespace < reportsummary3.height then
begin
while engine.freespace > Child3.height do
begin
engine.showband(Child3);
end;
engine.newpage;
end;
if engine.freespace > ReportSummary3.height then
begin
if engine.freespace > ReportSummary3.height + child2.height then
begin
ntimes := int((engine.freespace-reportsummary3.height)/child3.height);
for i := 1 to ntimes do
begin
engine.showband(Child3);
end;
engine.cury := engine.pageheight -reportsummary3.height - pagefooter4.height-1;
end;
end;
end;
procedure ReportSummary5OnBeforePrint(Sender: TfrxComponent);
begin
if engine.freespace < reportsummary5.height then
begin
while engine.freespace > Child5.height do
begin
engine.showband(Child5);
end;
engine.newpage;
end;
if engine.freespace > ReportSummary5.height then
begin
if engine.freespace > ReportSummary5.height + child5.height then
begin
ntimes := int((engine.freespace-reportsummary5.height)/child5.height);
for i := 1 to ntimes do
begin
engine.showband(Child5);
end;
engine.cury := engine.pageheight -reportsummary5.height - pagefooter6.height-1;
end;
end;
end;
procedure Memo41OnBeforePrint(Sender: TfrxComponent);
begin
Memo41.Text :='';
if <ADOQUERY1."PartNumber"><>''then
Memo41.Lines.Add (<ADOQUERY1."PartNumber">);
if <ADOQUERY1."CustomerPN"><>''then
Memo41.Lines.Add ('CustomerPN: [ADOQUERY1."CustomerPN"]');
if <ADOQUERY1."Description"><>''then
Memo41.Lines.Add ('DESC: [ADOQUERY1."Description"]');
if <ADOQUERY1."Condition"><>''then
Memo41.Lines.Add ('CONDITION: [ADOQUERY1."Condition"]');
if <ADOQUERY1."DateCode"><>''then
Memo41.Lines.Add ('DATECODE: [ADOQUERY1."DateCode"]');
if <ADOQUERY1."Package"><>''then
Memo41.Lines.Add ('PACKAGE: [ADOQUERY1."Package"]');
if <ADOQUERY1."LeadFree"><>''then
Memo41.Lines.Add ('LEADFREE: [ADOQUERY1."LeadFree"]');
if <ADOQUERY1."HarmonizedCode"><>''then
Memo41.Lines.Add ('HarmonizedCode: [ADOQUERY1."HarmonizedCode"]');
if <ADOQUERY1."Origin"><>''then
Memo41.Lines.Add ('COO: [ADOQUERY1."Origin"]');
end;