如何实现批量打印？？？

eyat · 发表于 2016-10-2 22:36

附件中的工作表中学校成绩登分表，通过下拉列表选择班级，利用函数生成相应班级的登分表。每次考试下发到各科老师手中，每次都要先选择班级，然后再打印相应份数，班数少还好，班数多了，是一项大工程，想通过控件和VBA实现一次性批量打印，可我的VBA知识很欠缺，请各位帮助。谢谢！！！

grf1973 · 发表于 2016-10-9 16:08

复制代码

grf1973 · 发表于 2016-10-9 16:10

预览可改成直接打印。
另一张考场排座的代码基本相同，只不过for i=2 to 3 ，然后[r1]=i，其他一样。表中代码已做。

eyat · 发表于 2016-10-9 23:51

谢谢grf1973大师给予的帮助，我还有一个问题就是我想还一次性打印多份，怎么设计代码，向您请教？？？

yanhj · 发表于 2016-10-11 10:38

ActiveWindow.SelectedSheets.PrintOut from:=1, To:=1 Copies:=1, Collate:=True
其中 copies:=份数，替换 Activesheet.printout 就可以了。

chenyin0824 · 发表于 2019-7-9 19:52

不错

huzhoulaji · 发表于 2019-12-31 10:45

好用

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