Hallo zusammen,

ich habe ein UserForm eingerichtet, indem ich mehrere Checkboxen für jeweils ein dazugehöriges Diagramm habe... Ich würde gerne ein CommandButton einfügen, der den Druckbefehl für die ausgewählten Checkboxen (und damit für das damit verbundene Diagramm) ausführt.

Ich glaube ich bin schon recht weit, aber leider druckt er immer nur ein Diagramm und das mittig auf eine Seite.

Kann mir vllt jmd sagen, was ich falsch mache?! :/

Für die Checkboxen habe ich kein Code hinterlegt.

Das habe ich für den CommandButton hinterlegt:

Sub CommandButton9_Click()
If CheckBox1 = True Then
              ActiveSheet.ChartObjects("Diagramm 6").Activate
                ActiveChart.ChartArea.Select
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
                ActiveWindow.Visible = False
             Windows("Rohdatenauswertung (2).xlsm").Activate
             Range("H9").Select
Else
If CheckBox2 = True Then
             ActiveSheet.ChartObjects("Diagramm 5").Activate
                ActiveChart.ChartArea.Select
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
                ActiveWindow.Visible = False
             Windows("Rohdatenauswertung (2).xlsm").Activate
             Range("H10").Select
Else
If CheckBox3 = True Then
             ActiveSheet.ChartObjects("Diagramm 1").Activate
                ActiveChart.ChartArea.Select
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
                ActiveWindow.Visible = False
             Windows("Rohdatenauswertung (2).xlsm").Activate
             Range("H11").Select
Else
If CheckBox4 = True Then
             ActiveSheet.ChartObjects("Diagramm 2").Activate
                ActiveChart.ChartArea.Select
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
                ActiveWindow.Visible = False
             Windows("Rohdatenauswertung (2).xlsm").Activate
             Range("H12").Select
Else
If CheckBox5 = True Then
             ActiveSheet.ChartObjects("Diagramm 4").Activate
                ActiveChart.ChartArea.Select
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
                ActiveWindow.Visible = False
             Windows("Rohdatenauswertung (2).xlsm").Activate
             Range("H13").Select
End If
  End If
End If
End If
End If
Application.Dialogs(xlDialogPrint).Show
End Sub

Besten Dank schonmal! :)