Macro to uncheck print in grayscale and print out

[lprabhu1107]

Hi experts,

I have recorded a macro to print excel worksheets in color by unchecking print in garyscale option but its not working. Recorded code is as follows,

Application.ActivePrinter = ".......PRI_LC01 on Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1


this code prints in black white, but the code should go to the properties and color and uncheck "print in grayscale" under color options and then finally print in color

Could you pls help

Regards

Prabhu