Gruppe
Extern
Problem
Wie kann ich aus Excel heraus Word veranlassen, ein bestimmtes Dokument zu drucken?
ClassModule: Tabelle1
Private Sub cmdWordDruck_Click()
Call WordDrucken
End Sub
StandardModule: basMain
Sub WordDrucken()
Dim wrdApp As Object
Dim wrdDoc As Object
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Worddokument wurde nicht gefunden!"
Else
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(sFile)
wrdDoc.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End If
End Sub