打印所有頁面，包括除了一頁以外的未隱藏

Question

我試圖打印出Excel工作簿，其中包括隱藏工作表，我已使用下面的代碼完成工作簿。我不需要幫助排除印張「A」。所有工作表「A」都會填寫其他工作表信息。所以這只是紙張被打印的浪費。

Sub PrintEachPage() 
Dim ws As Worksheet 
Dim CurSheet As Worksheet 
    Set CurSheet = ActiveSheet 
    For Each ws In ActiveWorkbook.Worksheets 
    If ws.Visible = False Then 
     If LCase(ws.Name) <> "a" Then 
     ws.Visible = xlSheetVisible 
     ws.PrintOut 
     ws.Visible = xlSheetHidden 
     Else 
     ws.PrintOut 
     End If 
    End If 
    Next ws 
    CurSheet.Activate 
End Sub 

Answer 1

Visible不布爾所以使用If ws.Visible = xlSheetHidden Then

---

消除片材的 「a」 在第一檢查。然後取消隱藏，隱藏它們，將它們隱藏起來。如果可見，那麼就打印。

---

Sub PrintEachPage() 
     Dim ws   As Worksheet 
     Dim CurSheet As Worksheet 

     Set CurSheet = ActiveSheet 

     For Each ws In ActiveWorkbook.Worksheets 
      If LCase(ws.Name) <> "a" Then 
       If ws.Visible = xlSheetHidden Then 
        ws.Visible = xlSheetVisible 
        ws.PrintOut 
        ws.Visible = xlSheetHidden 
       Else 
        ws.PrintOut 
       End If 
      End If 
     Next ws 

     CurSheet.Activate 
    End Sub