Private Sub mnuDruck_Click()
 
       Dim vorhanden As Boolean
       vorhanden = FileExists(App.Path & "Printer.ini")
       If vorhanden = True Then
 
       MsgBox "Druck Code muss noch rein!!"
 
       Else
       MsgBox "Es wurde noch kein Drucker ausgewählt!", vbOKOnly + _
         vbInformation, "Drucker fehlt..."
       Form5.Show
       End If
End Sub
 
Public Function FileExists(Datei As String) As Boolean
    If Dir(App.Path & "Printer.ini") <> "" Then
        FileExists = True
    Else
        FileExists = False
    End If
End Function