Ændre printer preferences vha. macro i Excel

Jeg sidder i øjeblikket og arbejder med en lille macro i Excel der skal udskrive 3 sheets. Problemet er at de printere jeg skal udskrive dem på som default er sat til at skrive ud i sort-hvid, og jeg skal have skrevet ud i farver. Koden jeg bruger nu ser således ud:

Sub Udskriv()
    Sheets("Resultat").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Printernavn"
    Sheets("Graf").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("RødGrøn").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Printerne der skal kunne skrives ud på er forskellige HP printere.

Så kort fortalt er problemet at ændre i printerens preferences så den skriver ud i farver.