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

"Jim Rech" wrote:

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).

--
Jim
"dab1984" wrote in message
...
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.