Ich möchte gerne den Druckbereich über CheckBoxen festlegen.
Wenn ich CheckBox1 einen Hacken setze dann Druckbereich B4:J37 das funkt.auch.
Aber wenn ich in Checkbox 1+2 einen Hacken setze, möchte ich gerne den Druckbereich B4:S37 ausdrucken.
Eventuell auch automatisch auf A4 in Querformat anpassen.
Könnte mir Bitte dabei jemand helfen.
Danke & Gruß Heinz
Option Explicit
Private Sub AbbrechenButton_Click()
Unload Me
End Sub
Application.ScreenUpdating = False
Private Sub cmdAction_Click()
If CheckBox1 Then Range("B4:J37").PrintOut 'Jänner
If CheckBox2 Then Range("K4:S37").PrintOut 'Februar
Unload Me
Application.ScreenUpdating = True
End Sub
Private Sub cmdCance_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
'Voreinstellungen:
CheckBox1 = False
CheckBox2 = False
End Sub