In meinem alten Delphi mit FR4 geht das:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.PrepareReport(true);
frxReport1.ShowPreparedReport;
end;
procedure TForm1.frxReport1AfterPrintReport(Sender: TObject);
begin
MessageDlg('Printing',mtInformation,[mbOk],0);
end;
In der Preview drücke ich auf den 'Print', wähle den Drucker (Microsoft to PDF), drucke und dann kommt die Message Box.