Only print in B&W

[austin350s10]

Is there a way to force a sheet to print out in black and white without changing the sheet itself to black and white. I was thinking of something that physically tells the printer to print in black and white vs. color.

My thing is that I have a lease copier that charges me a ton for color copies and the users of my workbook always forget to change the print properties to black and white.

I already tried the following script with no luck:

Sub PrintBnW()
With ActiveDocument
.Compatibility(wdPrintColBlack) = True
.PrintOut
.Compatibility(wdPrintColBlack) = False
End With
End Sub

 

[Andrew Poulsom]

In Excel the PageSetup object has a BlackAndWhite property (True for B&W).