Drucken
13.07.2021 10:09:22
Raptor
ich habe folgendes Problem:
Ich gebe in eine UserForm bestimme Daten ein. Diese werden dann über eine Verknüpfung in eine Word Datei eingefügt. Den Pfad der Word Datei habe ich in eine extra Tabellenblatt. Mein Ziel ist es das nur die Dokumente, die hinter den aktiven CheckBoxen stecken ausgedruckt werden. Das sind aber immer um die 20 Dateien, weshalb ich die Druckerauswahl an den Anfang gesetzt habe.
Ich bin für jede Hilfe dankbar
Mein Code sieht bisher so aus:
Private Sub Button_Drucken_Click()
Dim Word As Object
Dim Doc1 As Object
Dim D1 As String
D1 = Worksheets("Speicherpfade").Range("A1").Value
Set Word = CreateObject("Word.Application")
Set Doc1 = Word.Documents.Open(D1)
Application.Dialogs(xlDialogPrinterSetup).Show
'Drucken
If CheckBox1 = True Then
Word.Documents.Open(D1).PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Set Word = Nothing
End If
End Sub