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

jhmzzj

"给初学者辅助使用的"我喜欢，下来学学，谢谢了

lbl016

原帖由 lbl016 于 2010-5-8 11:00 发表
Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡")..Value).[c65536].End(3).Row
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub
kevinchengcw老师，这样 ...

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡").[i1].Value).[c65536].End(3).Row
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub
kevinchengcw老师，请你在百忙之中抽空帮我设计下代码好吗？你现在的代码只能批量打印封2，不能打印封1，且不能控制打印数量（选择号段）。

鱼求雨

佩服得五体投地，不论是作品还是人品！

您对微软以及VBA爱好者所做的贡献，可以说是一个里程碑！

[ 本帖最后由 鱼求雨 于 2010-5-9 16:59 编辑 ]

lbl016

原帖由 lbl016 于 2010-5-9 15:33 发表

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡")..Value).[c65536].End(3).Row
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub
kevinchengcw老师，请 ...

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡").[i1].Value).[c65536].End(3).Row
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub
kevinchengcw老师，请你在百忙之中抽空帮我设计下代码好吗？你现在的代码只能批量打印封2，不能打印封1，且不能控制打印数量（选择号段）。

冷雪飞

不论如何，对我的帮助还是很大！谢谢楼主！

kevinchengcw

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡").[i1].Value).[c65536].End(3).Row  '把这里的值进行修改来控制打印数量，可以自编输入对话框获取输入的数量
Sheets("封1").PrintOut   '这一句是打印封1的，至于是什么原因没有打印你再研究一下
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub

lbl016

原帖由 kevinchengcw 于 2010-5-10 10:00 发表
Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡")..Value).[c65536].End(3).Row  '把这里的值进行修改来控制打印数量，可以自编输入对话框获取输入的数量
Sheets("封1").PrintOut   '这一句是打印封1 ...

请问修改这里哪个数，如何修改？
For n = 3 To Worksheets(Worksheets("信息卡")..Value).[c65536].End(3).Row  '把这里的值进行修改来控制打印数量

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

lbl016

原帖由 kevinchengcw 于 2010-5-10 10:00 发表
Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡")..Value).[c65536].End(3).Row  '把这里的值进行修改来控制打印数量，可以自编输入对话框获取输入的数量
Sheets("封1").PrintOut   '这一句是打印封1 ...

我反复测试，它只能打印封2，就是不打印封1，不知是什么原因？

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

lbl016

我真的急需，还请kevinchengcw 老师抽空帮我完善下好吗？

sunxir

谢谢楼主，什么时候我能和你一样就好了！