Öffnen einer Word-Datei und drucke per Excel-Makro
21.02.2017 15:35:57
Gowitzke
Ich bin zufällig auf dieses Forum getroffen und suche Hilfe.
Ich möchte mit Klick auf einen Button in Excel eine Word-Datei öffnen und diese soll dann auf dem Drucker X gedrückt werden. Bei dem Drucker X handelt es sich nicht um den Standartdrucker sondern einen anderen Drucker im Netzwerk. Ich habe hier im Forum auch schon etwas Hilfe gefunden nur ich weiß nicht wie ich dort den Drucker X einfügen kann.
Sub Schaltfläche1_BeiKlick()
Dim appWord As Object
Dim doc As Object
On Error Resume Next
Set appWord = GetObject(, "Word.Application")
If Err.Number 0 Then Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open("C:\test.doc")
doc.PrintOut Copies:=4
Application.Wait Now + TimeSerial(0, 0, 5)
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
Ich hoffe mir kann jemand helfen.