Question

hie

正在使用excel中的activex复选框查找用于控制Excel工作表打印的vba代码。

选中此复选框后，代码应仅打印Excel工作表并在取消选中时禁用打印。

我已尝试过以下活动，但仍会打印并且msgbox未显示

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "CANNOT PRINT, check box 1 is unchecked", vbOKOnly, "Error"
End Sub

有什么建议吗？

Answer 1

您需要实际测试是否选中了复选框。此外，您需要将此代码放在VBE中的ThisWorkbook模块中。

根据需要更改工作表和复选框名称：

Private Sub Workbook_BeforePrint(Cancel As Boolean)

   If Sheets("Sheet1").CheckBox1.Value = False Then
     Cancel = True
     MsgBox "CANNOT PRINT, check box 1 is unchecked", vbOKOnly, "Error"
   End If

End Sub

Excel activex复选框以启用或禁用打印

1 个答案: