VBA Excel에서 시트 목록을 인쇄하는 방법

Question

통합 문서에서 시트 목록의 색인을 만들고, 그 중 일부를 인쇄하고 싶습니다 (A 열에 목록, B 열에 표시는 원하는 것 인쇄하려면

VBA Excel에서 몇 가지 코드가 있습니까 ???

I 윌 정말 감사

Answer 1

Sub PrintSheets() 
    Dim cell As Range 
    For Each cell In Sheet1.Range("A1:A10") '''(change this) 
    If cell.Offset(0, 1).Value <> "" Then 
     Sheets(cell.Value).PrintOut 
    End If 
    Next cell 
End Sub 

Answer 2

어떻게 인쇄 할 시트를 선택하기 위해 시트의 속성을 사용하는 방법에 대한.

탭 색상처럼 - 설정하기 쉽고 멋진 시각적 표시기입니다.

Sub PrintSheets() 
     Dim sb As String 
     sb = Application.StatusBar 
     If sb = "False" Then sb = "" 

     Dim ws As Worksheet 
     For Each ws In ActiveWorkbook.Worksheets 
      If 0 < ws.Tab.ColorIndex Then 
       Application.StatusBar = "Printing " & ws.Name & " ..." 
       ws.PrintOut 
      End If 
     Next 

     Application.StatusBar = sb 
End Sub