judoka0209
XLDnaute Occasionnel
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
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