Gruppe
Druck
Problem
Die Tabellen gem. Kontrollkästchen sollen in der Druckvorschau angezeigt werden.
StandardModule: Modul1
Sub DruckVorschau()
Dim chb As CheckBox
For Each chb In ActiveSheet.CheckBoxes
If chb.Value = xlOn Then
Worksheets(chb.Caption).PrintPreview
End If
Next chb
End Sub