白黒に印刷にする  Sub test()    ' 白黒に印刷にする    With ActiveSheet       ···