Cacher is the code snippet organizer for pro developers

Sub MonotonePrint()
  Dim Current As Worksheet

  For Each Current In Worksheets
   ' 印刷設定を白黒に
    Current.PageSetup.BlackAndWhite = True
  Next
 
 ' ブック印刷
  ActiveWorkbook.Worksheets.PrintOut

  ' 部数指定で印刷する場合
  ' ActiveWorkbook.PrintOut Copies:=1
End Sub