Private Sub Report_Close()
    mldg = "Druck in Ordnung ? Können die Daten auf Status gedruckt gesetzt" & _
      "werden ?"
    stil = vbYesNoCancel + vbDefaultButton2
    antwort = MsgBox(mldg, stil)
    If antwort = 6 Then                        ' (6 = JA , 7 = NEIN)
          NavisionAktualisieren.RH_daten
          End If
    If antwort = vbCancel Then
     'breche das schließen ab und zeige weiterhin den Report an
    End If
Exit_ButtonBericht5_Click:
    Exit Sub
 
Err_ButtonBericht5_Click:
    MsgBox Err.Description
    Resume Exit_ButtonBericht5_Click
 
End Sub