한 페이지를 제외한 모든 페이지를 인쇄합니다.

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 그래서 먼저 확인에서 "A"시트를 제거 If ws.Visible = xlSheetHidden Then

---

를 사용 부울되지 않습니다. 숨겨진 것들을 숨기고, 인쇄하고, 숨 깁니다. 보이는 경우 그냥 인쇄하십시오.

---

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