Option Explicit
Sub Test()
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$50"
Range("B6,F18,B29,F32").Select
Selection.Interior.ColorIndex = xlNone
'ActiveSheet.PrintOut
ActiveSheet.PrintPreview
Range("B6,F18,B29,F32").Select
Selection.Interior.ColorIndex = 40
Range("A1").Select
End Sub
Sub Test2()
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$50"
ActiveSheet.PageSetup.BlackAndWhite = True
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut
End Sub