Ist es möglich den Druckbereich von zB. CheckBox1,Checkbox2 und Checkbox3 auf ein A4 Blatt im Querformat zu drucken.
Siehe unteren Code
Es sollte wenn mehr als 3 Checkboxen aktiviert werden,eine Msg Box erscheinen "Maximal 3 Monate möglich"
Oder wenn nicht 3 Checkboxen hintereinander zB. 1+2+4 eine Msg Box erscheinen "Nur angrenzende Monate möglich"
Könnte mir Bitte jemand weiterhelfen ?
Danke, Heinz
Option Explicit
Private Sub CheckBox30_Click()
Application.ScreenUpdating = False
Dim tmp As String
If CheckBox1 Then Range("B4:J37").PrintOut 'Jänner
If CheckBox2 Then Range("K4:S37").PrintOut 'Februar
If CheckBox3 Then Range("T4:AB37").PrintOut 'März
If CheckBox4 Then Range("AC4:AK37").PrintOut 'April
If CheckBox5 Then Range("AL4:AT37").PrintOut 'Mai
If CheckBox6 Then Range("AU4:BC37").PrintOut 'Juni
If CheckBox7 Then Range("BD4:BL37").PrintOut 'Juli
If CheckBox8 Then Range("BM4:BU37").PrintOut 'August
If CheckBox9 Then Range("BV4:CD37").PrintOut 'September
If CheckBox10 Then Range("CE4:CM37").PrintOut 'Oktober
If CheckBox11 Then Range("CNK4:CV37").PrintOut 'November
If CheckBox12 Then Range("CW4:DE37").PrintOut 'Dezember
End Sub
Private Sub CheckBox50_Click()
Unload Me
End Sub