BeforePrint

lucas_doni

How do I create a BeforePrint the FastReport event within the Delphi 10 Seattle program?

gpi

If you have FR Standart, Professional, Enterpise with script support

frxReport.LoadFromFile('reportfolder\test.fr3');
with frxReport do begin
frxreport.ScriptText.Clear; //clear script text
frxreport.ScriptText.Add('procedure MasterDataOnBeforePrint(Sender: TfrxComponent);');
frxreport.ScriptText.Add('Begin');
frxreport.ScriptText.Add('Memotest.Color := $00FF0000;');
frxreport.ScriptText.Add('end;');
frxreport.ScriptText.Add('Begin');
frxreport.ScriptText.Add('masterData.OnbeforePrint :='+''''+'MasterDataOnBeforePrint'+''''+';');
frxreport.ScriptText.Add('end.');
frxReport.ShowReport;
end;