BlackAndWhite Property Example

This example causes Sheet1 to be printed in black and white.

Worksheets("Sheet1").PageSetup.BlackAndWhite = True