Macro to Print

[lprabhu1107]

Dear All,

I have a workbook with 10 worksheets. All this sheets needs to be printed in Color. At present iam manually doing this as follows"File---Print---Properties---Color---Uncheck Print in Grayscale---ok---ok"

I have to do the above exercise almost everyday manually.

Is there a way to automate the above with a macro

Regards

Prabhu

 

[Giordano Bruno]

Check out SendKeys on the web.

 

[VoG]

Try recording a macro whilst you do this manually.

 

[lprabhu1107]

I tried recording a macro, but its not working

 

[VoG]

What does "not working" mean?

 

[lprabhu1107]

"not working" means iam getting the printouts in black and white instead of color

 

[Giordano Bruno]

This won't work for you, but it's an example of some code I use to do something similar

application.SendKeys ("^p{TAB 6}~"), Wait:=True '>Properties>Enter
application.SendKeys ("{TAB}"), Wait:=True '>Paper Select
application.SendKeys ("~"), Wait:=True '>Enter
application.SendKeys ("{UP 4}"), Wait:=True '>Top of list
application.SendKeys ("{DOWN 1}"), Wait:=True '>A4
application.SendKeys ("%p"), Wait:=True '>Alt-p Paper tray
application.SendKeys ("{UP 5}"), Wait:=True '>Top of list (Auto Paper Select)