Fastreport. Vorschau gedruckt?

[Dejan Vu]

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.