Wieso druckt 2 mal???

Private Sub CheckBox2_Click()
Dim s
Dim z As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If CheckBox2 = True Then
CheckBox2.ForeColor = &HFF0000                 'Blau
CheckBox3.Enabled = False
CheckBox3.ForeColor = &H80000012               'Schwarz
CheckBox3 = False
End If
If ActiveSheet.Range("J2").Value = 0 Then
MsgBox "Es wurden KEINE  Fahrzeuge gefunden           " & Chr(13) & Chr(13) & _
Chr(13) & "Neu Filtern oder Suchen      !   " & Chr(13) & Chr(13) _
, vbInformation, " Hinweis !"
ComboBox1.SetFocus
Exit Sub
Else
z = Range("a3").End(xlDown).Row
ActiveSheet.Range(Cells(2, 1), Cells(z, 28)).Select
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(2, 1), Cells(z, 28)).Address
.PrintTitleRows = "$2:$3"
.PrintTitleColumns = ""
'.LeftHeader = ""
.CenterHeader = "&""Arial,Fett""&12Geschäftswagen" & Chr(10) & "&14&A "
.RightHeader = "&""Arial,Fett"" "
.LeftFooter = "&""Arial,Fett""&8&P   von  &N"
' .CenterFooter = " "
.RightFooter = "&""Arial,Fett""&8 &F  &D  &T"
.Orientation = xlPortrait
.BlackAndWhite = False
.Zoom = 65
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Calculation = xlCalculationAutomatic
End If
If CheckBox2 = True Then
CheckBox2 = False
CheckBox2.ForeColor = &H80000012               'Schwarz
CheckBox3.Enabled = True
End If
Application.ScreenUpdating = True
End Sub