Ist QReport gedruckt worden?

[BrinkschulteManfred]

Hallo zusammen,

kann man festellen, ob ein QReport aus einer Review gedruckt wurde, oder ob die Vorschau einfach durch "schließen" geschlossen wurde? Ich müsste nämlich dann, wenn tatsächlich ein Ausdruck erzeugt wurde, noch ein paar Zeilen ausführen lassen.

Gruß
Manfred

[omata]

Schau mal hier...

http://ftp.qbss.com/qr0/QR3MDID4.ZIP

MfG
Thorsten

[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;