抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

lbl016

我这样修改后基本能用，不知还有什么好办法？
Sub 批量打印()
Dim M, N As Integer
M = InputBox("请输入要打印的数量: ")
If M = "" Then Exit Sub
For N = 1 To  M
Sheets("信息卡").PrintOut
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub
不知是什么原因造成你的代码只打印封2，而不打印封1，我现在通过增加Sheets("信息卡").PrintOut后解决打印封1和封2的问题，现在就只打印封1和封2而不会打印信息卡。

[ 本帖最后由 lbl016 于 2010-5-11 19:41 编辑 ]

KAKA.ZHUO

做得確實不錯，相當花功夫啊！辛苦了

lbl016

原帖由 lbl016 于 2010-5-11 17:43 发表
我这样修改后基本能用，不知还有什么好办法？
Sub 批量打印()
Dim M, N As Integer
M = InputBox("请输入要打印的数量: ")
If M = "" Then Exit Sub
For N = 1 To  M
Sheets("

目前的代码又出现个新问题有时打开系统第一次选择批量打印时出现又会出现打印信息卡封1，而不是打印封1和封2，但选择第二次时又是打印封1和封2

[ 本帖最后由 lbl016 于 2010-5-11 21:35 编辑 ]

木林森2

谢谢楼主，学习学习

njly0886

谢了，一直想学习一下VBA！

lbl016

我这样修改后基本能用，不知还有什么好办法？
Sub 批量打印()
Dim M, N As Integer
M = InputBox("请输入要打印的数量: ")
If M = "" Then Exit Sub
For N = 1 To  M
Sheets("信息卡").PrintOut
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub
不知是什么原因造成你的代码只打印封2，而不打印封1，我现在通过增加Sheets("信息卡").PrintOut后解决打印封1和封2的问题，现在就只打印封1和封2而不会打印信息卡。
目前的代码又出现个新问题有时打开系统第一次选择批量打印时又会出现打印信息卡和封1，而不是打印封1和封2，但选择第二次时又是打印封1和封2，不打印信息卡。

[ 本帖最后由 lbl016 于 2010-5-12 10:14 编辑 ]

pzhqh

是深入学习的非常好的资料

kevinchengcw

原帖由 lbl016 于 2010-5-12 10:12 发表
我这样修改后基本能用，不知还有什么好办法？
Sub 批量打印()
Dim M, N As Integer
M = InputBox("请输入要打印的数量: ")
If M = "" Then Exit Sub
For N = 1 To  M
Sheets("信息卡").PrintOut
Sheets("封1" ...

极有可能是处理速度太快，封一还没打印，就直接打印封2了，想个办法延时试一下，比如
for n=1 to 1000000000
next n
这样加在中间，让电脑数数去吧，免得处理太快

nzhyj

谢谢，支持一下楼主的共享精神。

lbl016

原帖由 kevinchengcw 于 2010-5-12 13:55 发表


极有可能是处理速度太快，封一还没打印，就直接打印封2了，想个办法延时试一下，比如
for n=1 to 1000000000
next n
这样加在中间，让电脑数数去吧，免得处理太快

加在哪里呢