Drucken, wenn...
22.12.2018 18:20:58
AL
ich würde gerne Tabellenblätter (AUSGABE1, AUSGABE2, AUSGABE3) über ein Makro drucken lassen, die ausgeblendet sind (xlSheetVeryHidden). In diesen Tabellenblättern habe ich bereits Druckbereiche festgelegt.
Der Druck der Tabellenblätter soll nur dann erfolgen, wenn in Zelle A16 der jeweiligen Tabellenblätter etwas steht. Die zu druckenden Blätter sollen dann zusammen gedruckt werden, bspw. wenn der Benutzer als PDF drucken will, soll eine einzige Datei erzeugt werden.
Ich habe mit meinen begrenzten Programmierkenntnissen das Folgende zusammengestellt, das leider noch nicht so richtig funktionieren will. Momentan wollen alle Tabellenblätter einzeln gedruckt werden, und das auch obwohl in A16 nichts steht (außer einer Formel, die ""-leer wiedergibt) ...
Sub DruckAUSGABEN()
Dim wks As Worksheet, arrWks, W As Integer
arrWks = Array("AUSGABE1", "AUSGABE2", "AUSGABE3")
For Each wks In ThisWorkbook.Worksheets
For W = 0 To UBound(arrWks)
If wks.Name = arrWks(W) Then
If wks.Range("A16") "" Then
Application.Dialogs(xlDialogPrint).Show
End If
End If
Next W
Next wks
End Sub
Danke.