Hi Joyce,

You should be able to record it. It is in Page Setup on the Sheet tab.
However, the following code should do it. If you record it, you can delete
the rows of code that you don't change the defaults.

With ActiveSheet.PageSetup
.Draft = True
.BlackAndWhite = True
End With

Depending on the printer, draft quality may not work. I think that the
PrintQuality parameter takes precedence and cannot always be changed.


--
Regards,

OssieMac


"Joyce" wrote:

Hello,

I often need to print in draft mode, black ink only. Then, I go back to
regular mode, color.

I would really like to add one toolbar button with code behind it that sets
the printer properties to black and another to set back to color.

Is it possible to do this? I've tried the recorder, but nothing is captured.

Thanks.