Tabellenblätter nach ausgewählter CheckBox drucken
01.04.2014 12:12:41
Wolfgang
ich komme mit der UF und den CheckBoxen nicht zurecht.
In einer Userform sind 7 CheckBoxen und wenn ich nun egal wieviele ich anklicke und dann auf den Button "Drucken" aus der UF klicke, dann werden mir immer 7 Seiten ausgedruckt!
Wie kann man das steuern, dass nur das Tabellenblatt ausgedruckt wird, das auch über die CheckBox ausgewählt wird?
hier mal der Code:
Private Sub CommandButton2_Click()
If CheckBox1 = True Then Sheets("Tabelle1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If CheckBox2 = True Then Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If CheckBox3 = True Then Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If CheckBox4 = True Then Sheets("Tabelle4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If CheckBox5 = True Then Sheets("Tabelle5").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If CheckBox6 = True Then Sheets("Tabelle6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
If CheckBox7 = True Then Sheets("Tabelle").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Unload Me
Sheets("Tabelle1").Activate
End Sub
es grüßt
Wolfgang aus Franken