VBA自定义函数判断单元格非空时调用PrintOut打印区域失败问题

Excel 对工作表内调用的自定义函数（UDF）有明确的权限限制：这类函数仅允许向调用公式的单元格返回计算结果，禁止执行所有带副作用的操作，包括打印、修改其他单元格内容、调整工作表配置等。你的代码中.PrintOut打印语句直接被Excel拦截，不会实际执行；而返回字符串、弹出消息框的操作不在限制范围内，所以可以正常运行。

方案1：工作表变更事件自动触发（推荐） #

该方案无需手动输入公式，在A列单元格输入内容确认后自动执行判断和打印逻辑，操作步骤如下：

• 右键点击你存放A1、A2数据的工作表标签，选择「查看代码」
• 在弹出的VBA编辑窗口中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应A列的单元格变更
    If Target.Column <> 1 Then Exit Sub
    ' 跳过批量修改多个单元格的场景
    If Target.CountLarge > 1 Then Exit Sub
    
    If Not IsEmpty(Target.Value) Then
        Worksheets("Label").Range("A1:F13").PrintOut
        ' 对应B列单元格自动写入打印提示
        Target.Offset(0, 1).Value = "Label Printed"
        MsgBox "Printed"
    Else
        Target.Offset(0, 1).Value = "Not Printed"
    End If
End Sub

• 保存文件（如果是xlsx格式需要另存为xlsm启用宏的工作簿），之后只要在A列单元格输入内容按回车，就会自动触发判断逻辑。

方案2：绑定按钮手动触发 #

如果不需要自动执行，可以把打印逻辑封装为普通宏，插入按钮绑定后手动点击触发，代码示例：

Sub PrintLabelCheck()
    ' 判断当前选中的单元格是否为空
    If Not IsEmpty(Selection.Value) Then
        Worksheets("Label").Range("A1:F13").PrintOut
        MsgBox "Printed"
    Else
        MsgBox "Not Printed"
    End If
End Sub

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