Wenn der Ausdruck eines Berichts via VBA aktiviert wurde, und der Benutzer den Druckauftrag abbricht, löst Access für die betreffende OpenReport-Methode einen Laufzeitfehler aus.
Diesen Fehler, der von Access beim Druckabbruch ausgelöst wird, sollte Ihre VBA-Prozedur abfangen.
Public Function BerichtDrucken(Bericht As String)
On Error GoTo Err
DoCmd.OpenReport Bericht, acNormal
BerichtDrucken = True
Ende:
Exit Function
Err:
If Err.Number = 2501 Then
'Druck wurde abgebrochen
MsgBox "Druckauftrag wurde abgebrochen."
End If
BerichtDrucken = False
Resume Ende
End Function