VBA代码：打印时隐藏指定的单元格区域

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 Dim vFontArr As Variant
 Dim oWkSht As Worksheet
 Dim rNoPrintRange As Range
 Dim rCell As Range
 Dim rArea As Range
 Dim i As Long
 Dim bOldScreenUpdating As Boolean
 
 Cancel = True
 With Application
   .EnableEvents = False
   bOldScreenUpdating = .ScreenUpdating
   .ScreenUpdating = False
 End With
 
 For Each oWkSht In ActiveWindow.SelectedSheets
   On Error Resume Next
   Set rNoPrintRange = oWkSht.Range("NoPrintRange")
   On Error GoTo 0
   If Not rNoPrintRange Is Nothing Then
     With rNoPrintRange
       ReDim vFontArr(1 To .Count)
       i = 1
       For Each rArea In .Areas
         For Each rCell In rArea
           With rCell
             vFontArr(i) = .Font.ColorIndex
               If .Interior.ColorIndex = xlColorIndexNone Then
                 .Font.Color = RGB(255, 255, 255) '白色
               Else
                 .Font.ColorIndex = .Interior.ColorIndex
               End If
               i = i + 1
           End With
         Next rCell
       Next rArea
       oWkSht.PrintOut
       i = 1
       For Each rArea In .Areas
         For Each rCell In rArea
           rCell.Font.ColorIndex = vFontArr(i)
           i = i + 1
         Next rCell
       Next rArea
     End With
   Else
     oWkSht.PrintOut
   End If
 
   Set rNoPrintRange = Nothing
 Next oWkSht
 
 With Application
   .ScreenUpdating = bOldScreenUpdating
   .EnableEvents = True
 End With
End Sub