VBA Ausdrucken mit ShellExecute

[Schmittklaus]

Hi, :19:

seit der Umstellung von Windows 8 auf Windows 10 funktioniert der VBA Befehl

ShellExecute 0, "Print", "c:\test\test.pdf" , "", "", SHOWMAXIMIZED

nicht mehr.
Eine Fehlermeldung ist nicht zu sehen.
Kann mir bitte jemand weiterhelfen.

Ich möchte einfach eine beliebige Datei aus Excel ausdrucken. Vielleicht gibt es auch einen anderen Befehl dafür?

LG Klaus

[mmat]

Hallo,

den Befehl ShellExecute gibt es nicht in VBA. Es handelt sich offensichtlich um einen API-Aufruf. Irgendwo am Anfang müsste es eine Zeile geben, die ungefähr so aussieht:

Code:

Private 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

Poste diese Zeile mal.
vg, MM

[Schmittklaus]

Diese Codezeile bestand bereits. Nur als Public definiert

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

[Schmittklaus]

Hab's zufällig selbst rausgefunden.


Obwohl im Explorer mit einem Doppelklick die PDF Datei geöffnet wurde, war die Adobe Acrobat Installation nicht sauber.

Nachdem ich auf die Datei mit der rechten Maustaste auf "Andere App auswählen" Adobe Acrobat ausgewählt habe, und die Option "Immer diese App zum öffnen von PDF Dateien verwenden" geklickt habe und so die Dateizuordnung erneut durchgeführt habe, funktioniert nun auch shellexecute.

LG
Klaus