热心网友
回答时间：2022-06-18 04:59
假如当sheet1的A1数据更新后打印，代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then '如果A1单元格数据改变
Target.Parent.PrintOut
End If
End Sub
注意代码不是在模块里。（如果A1是由公式得到的数据，则要换一个事件来处理）
本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。
