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

如果一个工作簿中包含许多工作表，其中还有一些是隐藏的，我们可以用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

该篇文章内容来源于网络，由强国说-WPS之家(wps.qiangguoshuo.com)收集，希望能为您提供帮助。

wSheet.PrintPreview
wSheet.Visible = CurStat
End If
Next
End Sub

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/42605.html