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

lbl016 · 发表于 2010-5-7 18:09

[quote]原帖由 lbl016 于 2010-5-7 17:52 发表

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡").[i1].Value).[c65536].End(3).Row
Sheets("封1").PrintOut
Sheets("封2").PrintOut
添加各分表辅助列
下一步
Next
End Sub
这样是可以批量打印，但不能控制打印

[ 本帖最后由 lbl016 于 2010-5-7 18:13 编辑 ]

lbl016 · 发表于 2010-5-7 18:31

原帖由 lbl016 于 2010-5-7 18:09 发表
[quote]原帖由 lbl016 于 2010-5-7 17:52 发表

Sub 批量打印()
For n = 3 To Worksheets(Worksheets("信息卡")..Value).[c65536].End(3).Row
Sheets("封1"). ...

这个代码每个只打印了封2并未打印封1，不知是为什么？

[ 本帖最后由 lbl016 于 2010-5-7 18:36 编辑 ]

wangqiwei · 发表于 2010-5-7 18:40

谢谢啊

lbl016 · 发表于 2010-5-8 11:00

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，且不能控制打印数量（选择号段）。请你在百忙之中抽空帮我设计下代码好吗

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

pop029 · 发表于 2010-5-8 11:54

支持！学习中

yjcs888 · 发表于 2010-5-8 13:13

谢谢分享！

bl13927751826 · 发表于 2010-5-8 15:38

再弄个进化2嘛，期待

深圳飘逸 · 发表于 2010-5-8 16:45

这资料好好哟,感动中

qr1008 · 发表于 2010-5-8 17:32

我喜欢我喜欢

流浪的云彩 · 发表于 2010-5-8 23:31

下载学习了。很好的资料。

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

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

回复 773楼 fanjy 的帖子

评分