Excel仅允许按钮打印：模块代码编写及变量传递方法咨询

步骤1：修改ThisWorkbook中的代码 #

先在ThisWorkbook模块里声明公共变量，让标准模块能访问到button_used，同时初始化变量并保留原有打印拦截逻辑：

' 在ThisWorkbook模块最顶部声明公共变量
Public button_used As Boolean

Private Sub Workbook_Open()
    ' 工作簿打开时初始化标志为False
    button_used = False
End Sub

Public Sub Workbook_BeforePrint(Cancel As Boolean)
    ' 非按钮触发的打印直接拦截
    If button_used = False Then
        MsgBox "打印已禁用，请使用工作表上的打印按钮", vbExclamation
        Cancel = True
    End If
End Sub

步骤2：编写标准模块代码 #

在标准模块中创建按钮点击的宏，负责设置标志、执行打印并重置标志：

' 标准模块中的代码
Sub PrintViaButton()
    ' 将公共标志设为True，告知BeforePrint事件是合法触发
    ThisWorkbook.button_used = True
    
    ' 执行打印操作（可按需修改打印范围）
    ' 示例：打印当前激活工作表
    ActiveSheet.PrintOut
    ' 若要打印整个工作簿，替换为：ThisWorkbook.PrintOut
    
    ' 打印完成后立即重置标志，防止后续非法打印
    ThisWorkbook.button_used = False
End Sub

步骤3：关联按钮与宏 #

右键点击工作表上的按钮 → 选择指定宏 → 选中PrintViaButton并确认。

原理说明 #

• 通过在ThisWorkbook中声明公共变量button_used，实现标准模块与ThisWorkbook之间的变量传递。
• 按钮点击时先将标志设为True，触发打印后BeforePrint事件检测到合法标志，允许打印；打印完成后重置标志为False，确保后续直接按Ctrl+P或菜单打印会被拦截。

内容的提问来源于stack exchange，提问作者dorado