Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Durch VBA Acrobat Reader schließen und Drucker

Durch VBA Acrobat Reader schließen und Drucker
11.03.2004 14:52:19
Jens K.
Hallo zusammen,
ich benötige eure Hilfe.
Als erstes mein VBA Code:
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

Sub pdf_a()
Product = "W:\Test\01_Navigator\A.pdf"
ShellExecute 0, "print", Product, "", "", SHOWMAXIMIZED
End Sub

Es wird dabei ein PDF Dokument gedruckt.
Wie kann ich den acrobat Reader wieder komplett schließen ?
Der Druck erfolgt immer auf den Standarddrucker. In welchem Teil muss ich was ändern, das ich den Druck auf einen anderen drucker als den Standarddrucker umleiten kann.
Wer kann mir bei dieser Sache helfen.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Durch VBA Acrobat Reader schließen und Drucker
11.03.2004 17:42:37
Nepumuk
Hallo Jens,
beenden geht so:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Sub beenden()
PostMessage FindWindow(vbNullString, "Adobe Reader - [A]"), &H10, 0&, 0&
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige

75 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige