Snasui Excel Forum

Code: Select all

Sub Macro1()
Application.ScreenUpdating = False
    Range("A1:H1,A2:H2,A3,A4,A5:H5,B6:E6,A7,C7,E7,G7,A8,D8,A9,A10,C10").Select
    Range("C10").Activate
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Range("A1:H1").Select
    Range("I1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
  Application.ScreenUpdating = True
End Sub

Code: Select all

Sub Macro()
    Range("A1:H1,A2:H2,A3,A4,A5:H5," _
        & "B6:E6,A7,C7,E7,G7,A8,D8,A9,A10,C10").Font.Color = vbWhite
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Range("A1:H1,A2:H2,A3,A4,A5:H5," _
        & "B6:E6,A7,C7,E7,G7,A8,D8,A9,A10,C10").Font.Color = vbBlack
End Sub