Conditionally print Page2
Hi,
If I print an invoice, if user specify a rtf file name at data entry, I want Page2 to be printed.
I tried it this way but it doesn't work if I print a range of invoices. Works only if I print one invoice.
Any tips? TIA
procedure PageFooter1OnAfterPrint(Sender: TfrxComponent);
var a_: array of string ;
begin
if ( <Page> = <TotalPages> ) then
begin
a_ := CallHbFunc('frAppendixFile', [cAppendixCode, cInv]) ;
cAppendix := a_[1] ;
cAppendixName := a_[2] ;
Page2.visible := (trim(cAppendix) <> '')
end ;
end;
Comments
You may set visibility of TfrxReportPage in the main procedure of the script
Doesn't seem to work.
Inv 2 should print Appendix 1 (user assigned rtf file) after done printing Inv 2.
Inv 3 should print Appendix 2, after done printing Inv 3.
Right now, if I print just Inv 2, then Appendix 1 will be correctly printed.
If I just print Inv 3, then Appendix 2 will be correctly printed
If I print Inv 2 - Inv 3 however, Fastreport will print Inv 2, followed by Inv 3 and then followed by Appendix 2. Appendix 1 not printed.
I am trying to get Inv 2 + Appendix 1 followed by Inv 3 + Appendix 2
TIA 😄.
If any further info required, please inform. I haven't been able to resolve the issue
TIA
You can set visibility of TfrxReport page in the main procedure of the script only.
begin
Page2.Visible := False;
end.