Question

我有一个电子表格，我目前用作表格，如果没有填写特定单元格，我希望无法打印。问题是我在工作表中有其他宏，它们根据用户输入在行周围移动。因此，我无法专门检查某些细胞是否为空。我想我可以使用条件格式来指定某个字段，如果字段被解锁并且为空，只需检查所用范围内的每个单元格是否存在该颜色以防止打印。然而，我建立的只是不起作用。它没有提供和错误，它也不会停止打印。如果有人能帮忙，我会非常感激。这是我一直在使用的。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim rRng As Range
Dim rCell As Range
Set rRng = ActiveWorkbook.Sheets("Sheet2Name").UsedRange
If ActiveSheet.Name = "Sheet1Name" Then Exit Sub
If ActiveSheet.Name = "Sheet2Name" Then
    For Each rCell In rRng.Cells
        If rCell.Interior.Color = RGB(0, 255, 0) Then
        Cancel = True
        MsgBox "All required cells are not filled out, please see supervisor for assistance"
        End If
    Next rCell
End If
End Sub

如果单元格是特定颜色，则防止打印纸张

0 个答案: