请教老师怎么解决这个问题

gdw831001

在代码中按单步执行，从打印机打印出来的内容就正确，如果直接运行代码就不行，打印出来的内容全是一样。谢谢各位老师指点

lss001

无法查看代码，提示要密码，请重新发不加密附件

gdw831001

lss001 发表于 2017-3-20 12:58
无法查看代码，提示要密码，请重新发不加密附件

不好意思，重新上传了附件,请看

lss001

Sub 打印()
x = [z1]:  N = [ab1]
With ActiveSheet
    For i = x To N
        .Range("b1") = Sheets("111").Range("r" & i)
        .Range("b10:r46").PrintOut Copies:=[ae1], Collate:=True
Application.Wait (Now + TimeValue("00:00:01"))
   Next
End With
End Sub
'加上延时再试试

gdw831001

lss001 发表于 2017-3-20 14:24
Sub 打印()
x = [z1]
N = [ab1]

不行哦，，，，

gdw831001

lss001 发表于 2017-3-20 14:24
Sub 打印()
x = [z1]
N = [ab1]

我的老班长帮忙解决了。

1. Sub 打印()
   
2. x = [z1]
   
3. N = [ab1]
   
4.     For i = x To N
   
5.         Sheets("打印地址").Range("b1") = Sheets("111").Range("r" & i)
   
6.         Sheets("打印地址").Range("b10:r46").Select
   
7.         Selection.PrintOut Copies:=[ae1], Collate:=True
   
8.         delay (1)
   
9.     Next i
   
10. End Sub
    
11. 
    
12. Sub delay(T As Single)
    
13.     Dim T1 As Single
    
14.     T1 = Timer
    
15.     Do
    
16.         DoEvents
    
17.     Loop While Timer - T1 < T
    
18. End Sub

复制代码

唐伯狼

我在使用打印代码的时候 出现过 设置打印区域时 单句执行出错,直接执行正常 的情况

结合楼主出现的情况,我的推测 楼主一次性提交代码 打印机处理不过来

我的总结如下:
打印代码在设置的时候要一次性执行完, 在提交给打印机的过程中却不能太快
这里可以结合延迟语句解决这个问题

修改后的代码如下

1. Sub 打印()
   
2. x = [z1]
   
3. N = [ab1]
   
4.     For i = x To N
   
5.         Sheets("打印地址").Range("b1") = Sheets("111").Range("r" & i)
   
6.         Sheets("打印地址").Range("b10:r46").Select
   
7.         Selection.PrintOut Copies:=[ae1], Collate:=True
   
8.         delay (1) '延迟1秒循环下一个  可以自己调试 缩短到最短时间
   
9.     Next i
   
10. End Sub
    
11. 
    
12. Sub delay(T As Single)
    
13.     Dim T1 As Single
    
14.     T1 = Timer
    
15.     Do
    
16.         DoEvents
    
17.     Loop While Timer - T1 < T
    
18. End Sub

复制代码

另外吐槽一下楼主的代码   写的很......丑

gdw831001

唐伯狼 发表于 2017-3-20 14:42
我在使用打印代码的时候 出现过 设置打印区域时 单句执行出错,直接执行正常 的情况

结合楼主出现的情况, ...

班长，谢谢啦，以后跟你学习了