如何在vba Excel中打印工作表列表

Question

我在工作簿中创建了一个工作表列表的索引，我想打印一些（在A列中列出，B列中的标记是我想要打印的那些）

你有一些代码，在VBA Excel ???

我真的非常感谢

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