probleme macro imprime

[judoka0209]

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

 

[Patrice33740]

Bonjour,

PageSetup = paramètres de mise en page
pour imprimer c'est PrintOut

 

[judoka0209]

comme ca
If Controls("checkbox" & i) = True Then Range(Controls("checkbox" & i).Tag).PageSetup

 

[judoka0209]

super merci