We just got a Xerox WorkCentre 7655 that has color print capability. The printer is set to a default of Black and White (due to costs). I have a report that auto runs that needs to change to color print. I tried recording a macro and then looking at the VB code, but didn't see anything that updated the print to color. When I ran the code, it came out black and white. The code was:

Application.ActivePrinter = "\\DC840NT2\BSEXEC-1 on Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\DC840NT2\BSEXEC-1 on Ne04:", Collate:=True
Application.Goto Reference:="PrintSheets"

Has anyone found a command that can be added to force it to change to color for a selected report?

Any help would be appreciated!