首页 > Excel专区 > Excel函数 >

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

Excel函数 2022-02-16 20:59:16

如果一个工作簿中包含许多工作表,其中还有一些是隐藏的,我们可以用VBA代码来直接打印所有隐藏的工作表,而无需将它们取消隐藏。由于Excel无法打印隐藏的工作表,下面的代码先取消工作表的隐藏,打印之后再将其隐藏起来。将代码放入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


标签: 代码工作打印隐藏excel函数

office教程网 Copyright © 2016-2020 http://www.office9.cn. Some Rights Reserved. 苏ICP备20040415号-9