创建打印按钮，启用和禁用基于单元格值excel

Posted 2021-04-10

有没有办法创建一个将启动禁用的打印按钮，当我的单元格值在A1 = 1时，它将变为enbaled打印一个woksheet，当它完成后，它将再次禁用自己？它是一个ActiveX按钮。

答案

将其放入工作表的私有代码表（右键单击工作表名称选项卡，查看代码）并根据需要进行编辑以引用正确的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