Private Sub CommandButton1_Click()
If CheckBox1.Value = True
    'Code für das Ausdrucken von Tabelle1
EndIf
If CheckBox2.Value = True
    'Code für das Ausdrucken von Tabelle2
EndIf
If CheckBox3.Value = True
    'Code für das Ausdrucken von Tabelle3
EndIf
End Sub