ich möchte mit folgendem Code Dokumente ausdrucken.
Ich klicke auf der UserForm die ChecBox, der Dokumente die ich will an und möchte Sie dann mehr klick auf ein Commandbutton drucken.
Dim Word As Object
Dim Doc1 As Object
Dim D1 As String
D1 = Worksheets("Speicherpfade").Range("E5").Value
Set Doc1 = Word.Documents.Open(D1)
Set Word = CreateObject("Word.Application")
If CheckBox1.Value = True Then
Doc1.PrintOut , Copies:=0
End If
Doc1.Close
Set Word = Nothing
End Sub
Ich erhalte die Fehlermeldung Objektvariable oder With - Objektvariable nicht festgelegt.
Danke für eure Hilfe
Raptor