Macro button to print one color copy and one gray scale.

Currently have Macro button to print 2 color copies of the finished spreadsheet. Would like it to be one color and one gray scale using the same button.

Here's what I have so far that working for two color copies:

Sub PrintForm()
Dim PrintOption As VbMsgBoxResult
PrintOption = MsgBox(" Omit Prices?", vbYesNo, "Print Options")
Const strPassword As String = "Password"
ActiveSheet.Unprotect Password:=strPassword

If PrintOption = 6 Then Union(Range("K14:M33,O14:O33"), Range("O34")).Font.Color = vbWhite

With ActiveSheet.PageSetup
.PrintArea = "$A$1:$Q$38"
.LeftMargin = Application.InchesToPoints(0.21)
.RightMargin = Application.InchesToPoints(0.17)
.TopMargin = Application.InchesToPoints(0.21)
.BottomMargin = Application.InchesToPoints(0.31)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=2
Union(Range("K14:O33"), Range("O34")).Font.Color = vbBlack
ActiveSheet.Protect Password:=strPassword

End Sub

Since nobody answered my Thread, and about 40 of you seemed interested. After playing around with it some, here's my solution that seems to work for me at the moment. Perhaps it may help you!

Sub PrintForm()
Dim PrintOption As VbMsgBoxResult
PrintOption = MsgBox(" Omit Prices?", vbYesNo, "Print Options")
Const strPassword As String = "Password"
ActiveSheet.Unprotect Password:=strPassword

If PrintOption = 6 Then Union(Range("K14:M33,O14:O33"), Range("O34")).Font.Color = vbWhite

With ActiveSheet.PageSetup
.PrintArea = "$A$1:$Q$38"
.LeftMargin = Application.InchesToPoints(0.21)
.RightMargin = Application.InchesToPoints(0.17)
.TopMargin = Application.InchesToPoints(0.21)
.BottomMargin = Application.InchesToPoints(0.31)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1

If PrintOption = 6 Then Union(Range("K14:M33,O14:O33"), Range("O34")).Font.Color = vbWhite

With ActiveSheet.PageSetup
.PrintArea = "$A$1:$Q$38"
.LeftMargin = Application.InchesToPoints(0.21)
.RightMargin = Application.InchesToPoints(0.17)
.TopMargin = Application.InchesToPoints(0.21)
.BottomMargin = Application.InchesToPoints(0.31)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Union(Range("K14:O33"), Range("O34")).Font.Color = vbBlack
ActiveSheet.Protect Password:=strPassword
End Sub