阿Q吧 > 1永久取消逐份打印？2怎样用VBA解决？ 3、现在用EXCEL表格打印到条码机打一张停一下然后再打，效率很低。

1永久取消逐份打印？2怎样用VBA解决？ 3、现在用EXCEL表格打印到条码机打一张停一下然后再打，效率很低。

2024-11-15 14:11:29

推荐回答（1个）

回答1：

这个有点小麻烦
“逐份打印”这个设置不是一个状态属性，无法一次性设置为TRUE或FALSE
只能在每次打印时通过代码强制作为参数发送
建议的解决方法是
先用页面设置或打印预览调整好打印效果
然后点击打印按钮
但实际的打印命令用以下代码截获并取代：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveWindow.SelectedSheets.PrintOut Collate:=False
Cancel = True

End Sub

（上述代码请粘贴在这个文件的Thisworkbook工程窗口）

1永久取消逐份打印 ？2怎样用VBA解决？ 3、现在用EXCEL表格打印到条码机打一张停一下然后再打，效率很低。

1永久取消逐份打印？2怎样用VBA解决？ 3、现在用EXCEL表格打印到条码机打一张停一下然后再打，效率很低。