Imprime page setup

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

est-ce que ca c'est bon

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

merci

Bonjour,

Il faudrait que tu dises quelle est la valeur de .Tag de chaque CheckBox ?

Sous réserve de cette valeur et de l'éventuelle nécessité de qualifier Range :

Private Sub CommandButton1_Click()
    Dim i As Byte, plage As Range
    Me.Hide
    For i = 1 To 12
        With Controls("Checkbox" & i)
            If .Value Then Range(.Tag).PrintPreview
        End With
    Next i
    Unload Me
End Sub

Cordialement.

super merci ca marche