不要打印某些行和列

Question

我可以对我的工作表进行编程，以使其不打印包含A至H列的工作表中的C和D行，但是我也希望我的工作表不打印E列中的单元格没有值的行。这就是我不打印C和D行的用途。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
    Cancel = True
    Application.EnableEvents = False
    Application.ScreenUpdating = False
   With ActiveSheet
        .Range("C1,D1").EntireColumn.Hidden = True
        .PrintOut
        .Range("C1,D1").EntireColumn.Hidden = False
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If
End Sub