Forcer impression couleur sur imprimante réseau - VBA

Bonjour à tous,

Question très simple : Y'a t'il un moyen de forcer l'impression couleur sur l'imprimante par défaut d'un poste et en réseau ? Via un code vba bien-sur

(je peux pas changer le paramétrage par défaut des imprimantes, j'ai pas les droits et il y a trop d'imprimantes^^)

J'ai déjà le code qui permet d'imprimer ce que je veux mais pas en couleur :/

(j'ai essayé le .PageSetup.BlackAndWhite = False ca marche pas)

Code :

.............

Union(Range(Cells(2, 1), Cells(64, 13)), Range(Cells(70, 1), Cells(138, 13))).Select

With ActiveSheet.PageSetup

.Orientation = xlPortrait

.LeftMargin = Application.InchesToPoints(0)

.RightMargin = Application.InchesToPoints(0)

.TopMargin = Application.InchesToPoints(0)

.BottomMargin = Application.InchesToPoints(0)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0)

.FitToPagesWide = 1

.FitToPagesTall = 1

End With

Selection.PrintOut Copies:=Cells(19, 21)

Je vous joint également une capture de ma fenêtre d'impression classique avec le nom de l'imprimante sur mon poste et ses paramètres.

J’espère que vous pourrez m'éclairer

Merci d'avance