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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen