probleme macro imprime

Bonjour, j'ai un petit soucis sur une macro


Private Sub CommandButton1_Click()
Dim i As Byte
Dim plage As Range
Unload Me

For i = 1 To 12

If Controls("checkbox" & i) = True Then Range(Controls("checkbox" & i).Tag).PrintOut



' impression en couleurs
With ActiveSheet.PageSetup.BlackAndWhite = False

End With

Next


End Sub
je voudrais pas que ca imprime mais que ca m'ouvre juste le fichier imprime comme la photo ci joint
merci