Je suis débutante en Vba, mon code ci-dessous me permets d'imprimer en noir et blanc et je suis incapable de le modifier pour une impression en couleur. Quelqu'un a une idée SVP
Je vous remercie d'avance
Private Sub CommandButton1_Click()
Dim i As Integer
UserForm1.Hide
With ListBox1
For i = 0 To .ListCount - 1
Sheets(.List(i)).PageSetup.BlackAndWhite = False
If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
Next
End With
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
Dim s As Object
ListBox1.MultiSelect = fmMultiSelectExtended
For Each s In Sheets
ListBox1.AddItem s.Name
Next
End Sub
Je suis débutante en Vba, mon code ci-dessous me permets d'imprimer en noir et blanc et je suis incapable de le modifier pour une impression en couleur. Quelqu'un a une idée SVP
Je vous remercie d'avance
Private Sub CommandButton1_Click()
Dim i As Integer
UserForm1.Hide
With ListBox1
For i = 0 To .ListCount - 1
Sheets(.List(i)).PageSetup.BlackAndWhite = False
If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
Next
End With
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
Dim s As Object
ListBox1.MultiSelect = fmMultiSelectExtended
For Each s In Sheets
ListBox1.AddItem s.Name
Next
End Sub