ich organisiere gerade meine Prozesse neu und bind abei über einen alten Eintrag hier im Forum gestoßen. Leider ist der Beitrag schon im Archiv, so das ich darauf nicht antworten und eine neue Frage stellen kann.
Folgenden Code möchte ich nutzen. Im Büro (Office 2013) auf meinem dienstlichen PC funktioniert er einwandfrei. Bei mir zuhause Office 2016 nicht mehr. Hat jemand einen Tipp für mich?
Option Explicit
Private Declare Function ShellExecuteA Lib "shell32.dll" ( _
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
Sub prcPrint_PDF2()
Dim strPath As String
Dim FSO As Object, F1 As Object
strPath = "C:\Users\Oliver\DRUCKEN\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO = FSO.Getfolder(strPath)
For Each F1 In FSO.Files
If LCase(CStr(F1.Path)) Like "*.pdf" Then
ShellExecuteA 0&, "Print", F1.Path, vbNullString, vbNullString, 0
End If
Next F1
End Sub
Hat jemand eine Idee für mich? Besten Dank im Voraus.Oliver