PowerPoint - Printing in true grayscale

[TrippyTom]

I got sick of manually formatting every object on EACH slide to grayscale when printing, and I'm sure there's people out there that get sick of it too, so here's a macro that will do it for you. The grayscale option in the Print dialogue box doesn't work exactly as expected. Assign a button on the menu to this macro and just click it before printing.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> grayscale()
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> ErrorHandler
    
    <SPAN style="color:#00007F">With</SPAN> ActivePresentation.Slides.Range
        .Shapes.Range.BlackWhiteMode = msoBlackWhiteGrayScale
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
    <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

ErrorHandler:
    MsgBox ("There were no objects in the document to change.")
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>