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

jhmzzj · 发表于 2010-5-9 12:03

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

lbl016 · 发表于 2010-5-9 15:33

原帖由 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，且不能控制打印数量（选择号段）。

鱼求雨 · 发表于 2010-5-9 16:58

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

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

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

lbl016 · 发表于 2010-5-10 08:39

原帖由 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，且不能控制打印数量（选择号段）。

冷雪飞 · 发表于 2010-5-10 08:49

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

kevinchengcw · 发表于 2010-5-10 10:00

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

lbl016 · 发表于 2010-5-10 11:02

原帖由 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 · 发表于 2010-5-10 11:18

原帖由 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 · 发表于 2010-5-10 11:26

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

sunxir · 发表于 2010-5-10 13:51

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

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

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