imprimer

Salut tout le monde !
j'ai besoin d'aide svp pour imprimer
voici mon code, cela fonctionne avec une imprimante en usb mais avec une imprimante réseau sa bloque? pourquoi je ne sais pas !

Private Sub CommandButton4_Click()
'Manu Dejong
ActiveSheet.PageSetup.BlackAndWhite = True
rep = InputBox("Combien de copie veux-tu ? sachant qu'il y a 4 cellules", , 4)
If Not (IsNumeric(rep)) Or rep = "" Or rep < 1 Then Exit Sub
Range("A4:M48").Select
With Selection
.PrintOut Copies:=rep
End With
x = Array("A", "B", "C", "D")
For i = 0 To 3
Sheets(x(i)).Visible = True
Sheets(x(i)).Range("A3:I18").PrintOut Copies:=1, Preview:=False, Collate:=True
Sheets(x(i)).Visible = False
Next
A = MsgBox(Application.UserName + " ,veux-tu encore travailler, ou fermer le programme ?", vbYesNo)
If A = vbYes Then
Sheets("planning").Protect ("manu01")
Sheets("planning").Activate
Sheets("sauvegarde planning").Protect ("manu01")
End If
If A = vbNo Then
MsgBox (Application.UserName + " ,fermeture du programme et enregistrement, merci et bonne journée!")
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub

Merci de votre aide !