PDF-Datei über Shell-Anweisung drucken

09/10/2008 - 15:00 von Michael Marschall | Report spam
Hallo,
ich würde gerne eine PDF-Datei auf den Standarddrucker ausgeben.
Dies sollte über VBA funktionieren, ich gehe mal davon aus das eine
Shell-Anweisung dafür richtig wàre.
Allerdings fehlt mir das Wissen, wie ich den Befehl so gestallten
sollte, das mir wirklich die PDF-Datei ausgedruckt wird.

Danke im voraus
 

Lesen sie die antworten

#1 Ahmed Martens
09/10/2008 - 15:44 | Warnen spam
Hallo Michael,

Am Thu, 9 Oct 2008 06:00:25 -0700 (PDT) schrieb Michael Marschall:

Hallo,
ich würde gerne eine PDF-Datei auf den Standarddrucker ausgeben.
Dies sollte über VBA funktionieren, ich gehe mal davon aus das eine
Shell-Anweisung dafür richtig wàre.
Allerdings fehlt mir das Wissen, wie ich den Befehl so gestallten
sollte, das mir wirklich die PDF-Datei ausgedruckt wird.



das kannst Du ganz einfach mit der ShellExecute-API erledigen.

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

Public Sub Drucken()
Const SW_SHOWNORMAL = 1

'Ausgabe auf Standarddrucker
ShellExecute(Application.hWndAccessApp, "print", "C:\...\Mein.PDF", "",
"C:\", SW_SHOWNORMAL)

'Ausgabe auf ausgewàhlten Drucker
ShellExecute(Application.hWndAccessApp, "printto", "C:\...\Mein.PDF",
"MeinDruckerName", "C:\", SW_SHOWNORMAL)

end Sub
Gruß Ahmed
Antworten bitte nur in der Newsgroup.
WinXP Prof. / MS-Office 2003 Prof.

Ähnliche fragen