das nachstehende Makro funktioniert auf einer Schaltfläche im Tabellenblatt.
Auf einem Command-Button in einer UserForm erhalte ich immer den Fehler.
Hat jemand eine Idee warum?
Danke für die Mühe!
Max K.
Private Sub CommandButton13_Click()
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
Application.Wait Now + TimeSerial(0, 0, 5)
appWord.Quit
Set doc = Nothing
Set appWord = Nothing
End Sub