求助，每循环一次打印前两个工作表如何实现，请帮忙写下代码！！！

liao123456 · 发表于 2017-9-13 14:17

想实现，每循环一次就打印“成绩册封面”和“成绩册”这两个表。每循环1次数据就有变化。依次就把每个班打完了。循环我能写。就是每次打两个工作表不会。请帮忙完善下。

按钮在“”成绩册“ 这个表中

把代码写简单点，或是在我写的基础上做修改，太复杂看不懂！！

liao123456 · 发表于 2017-9-13 14:21

不要预览，直接打印就可以了

vbee · 发表于 2017-9-13 14:29

Sheets(Array("成绩册封面", "成绩册")).PrintPreview

vbee · 发表于 2017-9-13 14:33

打印机名称自己改

Sheets(Array("成绩册封面", "成绩册")).PrintOut Copies:=1, ActivePrinter:="CANON 在 LPT1:"

复制代码

Chip_Kenny · 发表于 2017-9-13 14:34

Sub 极郤傖憎聊()

For i = Range("AC4") To Range("AC8")
Range("AB1") = i
'Excel.ActiveWorkBook.PrintOut(1,2,1,.F.)
For j = 1 To 2
'Sheets(j).PrintPreview
Sheets(j).PrintOut , 1
Next j
Next i
End Sub

朱荣兴 · 发表于 2017-9-13 14:35

提示: 作者被禁止或删除内容自动屏蔽

liao123456 · 发表于 2017-9-13 14:45

朱荣兴发表于 2017-9-13 14:35

万分感谢！！！刚刚试过了，完全可以哈谢谢！！！

liao123456 · 发表于 2017-9-13 15:23

发现问题了，全都打印的是开始的那个班，比如打1-3，应该是对应的1.1,1.2,1.3.但是打印出来的全都是1.1
好像没有循环一样，到底哪里出问题了喃？

liao123456 · 发表于 2017-9-13 15:32

朱荣兴发表于 2017-9-13 14:35

直接在代码窗口运行就行，利用按钮指定该宏就全都打印开始的那个班级！朱哥哥在帮忙看看

朱荣兴 · 发表于 2018-7-9 14:55

提示: 作者被禁止或删除内容自动屏蔽

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-9-13 14:35 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-9 14:55 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报