Impressionn en couleur VBA

Bonjour Tout le monde

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

Bonsoir,

Sans tester mais je connais les galères d'impression...autocad..

Ce ne sont pas les réglages de l'imprimante par défaut a mettre en couleur ?

Cdt

Circus

Bonsoir

Non malheureusement ce n 'ai pas les réglages de l'impression

Merci quand même

vba1 a écrit :

Bonjour Tout le monde

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

Black and white cela vient de la

essaye celui ci

Sub IMPRIMER()
'
' IMPRIMER Macro
'

'
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

ton bouton macro tu lui donne nom "imprimer"