为什么这段代码不执行呢

czww26 · 发表于 2023-4-24 20:22

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.BlackAndWhite = True
End Sub
如上，想在任意工作部打开后，在打印时设置单色打印，但是一直不起作用，需要手动执行，是什么原因呢

taller · 发表于 2023-4-25 02:05

czww26 · 发表于 2023-4-25 08:37

taller 发表于 2023-4-25 02:05

感谢，我去试试

		自动登录	找回密码
密码			免费注册

[求助] 为什么这段代码不执行呢