利用VBA打印隐藏的excel工作表

office教程网 2024-12-24 16:34:22

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要：

如果一个工作簿中包含许多工作表，其中还有一些是隐藏的，我们可以用VBA代码来直接打印所有隐藏的工作表，而无需将它们取消隐藏。由于Excel无法打印隐藏的工作表，下面的代码先取消工作表的隐藏，打印之后再将其隐藏起来。将代码放入VBA编辑器的标准模块中运行。

如何显示用VBA隐藏的工作表
前面介绍了用VBA隐藏工作表，这时的工作表“格式→工作表→取消隐藏”命令是灰色的，无法执行。那如何取消对工作表的隐藏呢？ 1、按下Alt F11组合键进入VBA编辑状态。2、执行“工具→VBAProject属性”命令，弹出“VBA

Sub PrintHiddenSheets()
Dim wSheet As Worksheet
Dim CurStat As Variant
For Each wSheet In ActiveWorkbook.Worksheets
If Not wSheet.Visible Then
CurStat = wSheet.Visible
wSheet.Visible = xlSheetVisible
‘打印预览，如果要打印用 wSheet.PrintOut
wSheet.PrintPreview
wSheet.Visible = CurStat
End If
Next
End Sub