Me imprime dos veces con este código

Private Sub CommandButton2_Click()
On Error GoTo Problema
 If Application.Dialogs(xlDialogPrint).Show = True Then
 ActiveSheet.PageSetup.PrintArea = "$a$1:$i$35"
 ActiveWindow.SelectedSheets.PrintOut Copies:=1
 Else
 Exit Sub
 End If
Problema:
If Err.Number = 1004 Then
MsgBox " No a seleccionado impresora", vbCritical, "Error"
Exit Sub
End If
End Sub