Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel - Msg-Box Warnung funktioniert nicht
13.05.2019 16:54:28 Gast1234
NotSolved
13.05.2019 18:04:55 Gast99886
NotSolved

Ansicht des Beitrags:
Von:
Gast1234
Datum:
13.05.2019 16:54:28
Views:
34
Rating: Antwort:
  Ja
Thema:
VBA Excel - Msg-Box Warnung funktioniert nicht

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel - Msg-Box Warnung funktioniert nicht
13.05.2019 16:54:28 Gast1234
NotSolved
13.05.2019 18:04:55 Gast99886
NotSolved