macro til at ændre printer-indstillinger?

Jeg sidder på et firma-netværk. Vores farve-netværksprinter er indstillet til default at printe i sort/hvid. Så hver gang jeg skal printe i farve skal jeg ind i properties over printeren for at ændre til farve. Dette gælder også hvis jeg vil udskrive fra et andet faneblad (spredsheed) i samme regneark. Jeg kan godt lave en macro der vælger den aktuelle printer, men jeg har ikke kunnet lave en der også vælger papirtype og farve. Hvordan klarer jeg det?
Her er hvad jeg har indtil nu:

Application.ActivePrinter = "\\server\P201CPS on Ne04:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "\\server\P201CPS on Ne04:", Collate:=True