求助:打印已经隐藏的部分表

sccx · 发表于 2023-5-25 08:52

各位老师我是小白,帮忙写个vba 代码,实现点击录入表的打印按钮即可选择默认打印机分别打印隐藏表的部分表(如隐藏的表一、表五、表N'),谢谢!

sccx · 发表于 2023-5-26 08:32

本帖最后由 sccx 于 2023-5-27 17:35 编辑

各位老师我是小白,帮忙写个vba 代码,实现点击录入表的打印按钮即可打印隐藏表的部分表(如隐藏的表一、表五、表N'),谢谢!

iu950 · 发表于 2023-5-26 11:41

附件供参考。。。

sccx · 发表于 2023-5-26 15:19

本帖最后由 sccx 于 2023-5-26 15:31 编辑

求助各位大神!!!

sccx · 发表于 2023-5-26 15:29

本帖最后由 sccx 于 2023-5-28 08:00 编辑

iu950 发表于 2023-5-26 11:41
附件供参考。。。

非常感谢老师!

iu950 · 发表于 2023-5-26 16:16

sccx 发表于 2023-5-26 15:29
没有达到我想要的效果,还是感谢老师!

哪里不行，倒是说说看啊

sccx · 发表于 2023-5-26 18:51

本帖最后由 sccx 于 2023-5-28 08:02 编辑

iu950 发表于 2023-5-26 16:16
哪里不行，倒是说说看啊

老师好!非常感谢您,请您帮忙再改成不输入打印表格名称,点打印按钮就自动打印隐藏的表三、表五、表N,谢谢!

iu950 · 发表于 2023-5-29 09:29

sccx 发表于 2023-5-26 18:51
老师好!非常感谢您,请您帮忙再改成不输入打印表格名称,点打印按钮就自动打印隐藏的表三、表五、表N,谢谢!

打印所有隐藏的工作表

sccx · 发表于 2023-5-29 15:05

请老师给优化一下,谢谢!
Sub 指定打印隐藏表()
Sheets("表一").visible=True

Sheets("表一").Select

ActiveWindow.SelectedSheets.PrintOut

Sheets("表一").visible=False

Sheets("表三").visible=True

Sheets("表三").Select

ActiveWindow.SelectedSheets.PrintOut

Sheets("表三").visible=False

Sheets("表N").visible=True

Sheets("表N").Select

ActiveWindow.SelectedSheets.PrintOut

Sheets("表N").visible=False

End Sub

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

[求助] 求助:打印已经隐藏的部分表

评分

评分