|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
我在使用打印代码的时候 出现过 设置打印区域时 单句执行出错,直接执行正常 的情况
结合楼主出现的情况,我的推测 楼主一次性提交代码 打印机处理不过来
我的总结如下:
打印代码在设置的时候要一次性执行完, 在提交给打印机的过程中却不能太快
这里可以结合延迟语句解决这个问题
修改后的代码如下
- Sub 打印()
- x = [z1]
- N = [ab1]
- For i = x To N
- Sheets("打印地址").Range("b1") = Sheets("111").Range("r" & i)
- Sheets("打印地址").Range("b10:r46").Select
- Selection.PrintOut Copies:=[ae1], Collate:=True
- delay (1) '延迟1秒循环下一个 可以自己调试 缩短到最短时间
- Next i
- End Sub
- Sub delay(T As Single)
- Dim T1 As Single
- T1 = Timer
- Do
- DoEvents
- Loop While Timer - T1 < T
- End Sub
复制代码 另外吐槽一下楼主的代码 写的很......丑
|
评分
-
1
查看全部评分
-
|