[已解决]如何将工作薄中有颜色的工作表一次性打印

怕被伤害的人 · 发表于 2010-6-2 13:27

偶是菜鸟，请高手赐教！谢谢

UqMvV7z0.zip (22 Bytes, 下载次数: 0)

tkgg93 · 发表于 2010-6-2 13:30

附件里没内容吧？

nichangdong · 发表于 2010-6-2 13:33

等答案来

wayy · 发表于 2010-6-2 13:40

Sub printsheet()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
If Sheets(i).Tab.ColorIndex = "27" Then
ActiveSheet.PrintOut
End If
Next
End Sub

27是指黄色代码，具体颜色是啥自己改下就可以了。

BAIXINGR · 发表于 2010-6-2 13:41

你要做的是要先把有颜色的全部选中，才能打印，给你个思路，

wiexcel · 发表于 2010-6-2 13:49

学习来了

怕被伤害的人 · 发表于 2010-6-2 14:27

只要一次性把工作表中含有颜色的打印出来即可，谢谢你们指点，赐教，呵呵……

Nq · 发表于 2010-6-2 14:56

努力赚学费。学习学习。。

zlc020 · 发表于 2010-6-2 15:39

这个还是不会的我

寒子墨 · 发表于 2010-6-16 18:23

学习最佳

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