excel - 根据单元格值excel创建启用和禁用的打印按钮

Question

有没有办法创建一个打印按钮，该按钮将开始禁用，当我在 A1 =1 中的单元格值时，它将被启用以打印 woksheet，完成后它会再次禁用自身？它是一个 ActiveX 按钮。

标签： excelvbaprintingcontrolsenable-if

Answer 1

将其放入工作表的私有代码表（右键单击工作表名称选项卡，查看代码）并在必要时进行编辑以引用正确的 ActiveX 按钮。

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        CommandButton1.Enabled = CBool(Range("A1") = 1)
    End If
End Sub

Private Sub CommandButton1_Click()

    Range("a1").ClearContents

    'do all the printing code here
    MsgBox "printing ..."


End Sub