日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

如果一個工作簿中包含許多工作表，其中還有一些是隱藏的，我們可以用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