Hi Leute,

ich habe folgenden Code. Das Drucken funktioniert, jedoch kommt die Msg-Box nicht, sofern er die Datei nicht findet. Kann mir wer helfen?

lg

  Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
     
    Public Function PrintPDF(xlHwnd As Long, FileName As String) As Boolean
    Dim X As Long
    
    On Error Resume Next
    X = ShellExecute(xlHwnd, "Print", FileName, 0&, 0&, 3)
    
    If Err.Number > 0 Then
        MsgBox Err.Number & ": " & Err.Description
        PrintPDF = False
    Else
        PrintPDF = True
    End If
    On Error GoTo 0
    End Function
     
    Sub PrintSpecificPDF()
    'opens the specified pdf and prints it using the default printer
    'note that it uses the default PDF program and leaves it open
    
    Dim strPth As String, strFile As String
    
     Dim code As Variant
    code = InputBox("Please scan a barcode and hit enter if you need to")
    
    strPth = "C:\Users\\Downloads\"
    strFile = code & ".pdf"
     
    If Not PrintPDF(0, strPth & strFile) Then
        MsgBox "Printing failed"
    End If
    
    End Sub