奖状打印有点慢，求高手优化一下程序

ly8421 · 发表于 2013-1-17 18:26

本帖最后由 ly8421 于 2013-1-17 18:28 编辑

奖状打印有点慢，求高手优化一下程序，近700份奖状，打了5个小时，打印机空转时间太长，用了近1/3时间。打印机型号为hp1020。登陆密码均为：ly008421

lhdcxz · 发表于 2013-1-17 18:53

！！你的这个是什么程序！害得我不得不强迫中断才停下来。没法控制！下面的坛友千万注意了！
用这个帖子介绍的功能完全可以实现你的要求
参考：http://club.excelhome.net/thread-971751-1-1.html
下载使用后留言啊！

840205910 · 发表于 2013-1-17 19:09

Sub 打印全部()
Dim s, p As Integer
s = Cells(6, 21).Value
p = Cells(7, 21).Value
arr = Sheet1.UsedRange
For i = s To p
[c3] = arr(i, 2)
[c4] = arr(i, 7)
Sheets("打印").PrintOut Copies:=1
Next
End Sub

840205910 · 发表于 2013-1-17 19:13

奖状打印程序.zip (211.99 KB, 下载次数: 70)

840205910 · 发表于 2013-1-17 19:21

如果打印机3秒钟吐一张纸，那3*700秒就打印完！几乎代码1秒循环完。

时光鸟 · 发表于 2013-1-17 19:25

lhdcxz 发表于 2013-1-17 18:53
！！你的这个是什么程序！害得我不得不强迫中断才停下来。没法控制！下面的坛友千万注意了！
用这个帖子介 ...

楼主是在恶作剧吧

zhouwenjun · 发表于 2023-5-31 13:51

840205910 发表于 2013-1-17 19:13

密码是多少呢？

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

[求助] 奖状打印有点慢，求高手优化一下程序