Need help writing a printing macro

[dab1984]

Running Office 2003. Printer is new Ricoh Aficio 3245C PCL 5c. Default color
setting is black and white. Sometimes want to print a spreadsheet in color.
Know one can manually change the color setting from b&w to color via the
printer's printing preferences. Would like to have a macro that makes this
change and then reset back to the default b&w. Know how to create a custom
button on a toolbar and assign the macro. But unable to write a macro that
does the trick.
Thanks for your feedback.

 

[Jim Rech]

If you're changing print color via Excel's Page Setup dialog you'd use code
like this:

ActiveSheet.PageSetup.BlackAndWhite = True

However if you have to go into the actual printer driver there is no
programmatic way to do it as far as I know (other than the dreaded
SendKeys).

 

[Carl]

Jim,

My printer default resolution is 300 dpi. I change it to 600 to force it to
print in color but this takes time. Is there a way to change it to 600 using
a similar code in Excel's page setup? I suspect just changing your code below
to "False" will not work. Thanks in advance, Carl