如果一個(gè)工作簿中包含許多工作表，其中還有一些是隱藏的，我們可以用VBA代碼來(lái)直接打印所有隱藏的工作表，而無(wú)需將它們?nèi)∠[藏。由于Excel無(wú)法打印隱藏的工作表，下面的代碼先取消工作表的隱藏，打印之后再將其隱藏起來(lái)。將代碼放入VBA編輯器的標(biāo)準(zhǔn)模塊中運(yùn)行。
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
‘打印預(yù)覽，如果要打印用 wSheet.PrintOut
wSheet.PrintPreview
wSheet.Visible = CurStat
End If
Next
End Sub
