Ist QReport gedruckt worden?

[Union]

Hi,

in der Klasse TQuickRep gibt es ein event AfterPrint. Dieses wird nur ausgelöst, wenn der Report gedruckt wurde, egal ob aus der Preview oder direkt. Beispiel:

Delphi-Quellcode:

procedure TfrmDruckData.qrpDruckDataAfterPrint(Sender: TObject);
begin
   if MessageDlg('Sollen die gedruckten Daten gelöscht werden', mtConfirmation, [mbYes, mbNo], 0) = mrYes then 
   begin
      frmMain.DeleteSentData;
   end;
end;