如何在vba Excel中打印图纸列表

我为工作簿中的工作表列表编制索引，然后我将打印其中一些（a列中列出，B列中标记我要打印的工作表）

你有VBA Excel中的代码吗

我将非常感谢

子打印页（）
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

暗淡单元格作为范围
对于活页1.范围（“A1:A10”）''中的每个单元格（更改此项）
如果单元格.Offset（0，1）.Value为“”，则
表格（单元格值）。打印输出
如果结束
下一个细胞
端接头

子打印页（）
暗淡单元格作为范围
对于活页1.范围（“A1:A10”）''中的每个单元格（更改此项）
如果单元格.Offset（0，1）.Value为“”，则
表格（单元格值）。打印输出
如果结束
下一个细胞
端接头

使用工作表的属性选择要打印的工作表怎么样

像标签颜色-易于设置和一个很好的视觉指标

    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

子打印页（）
把某人当作绳子
sb=应用程序状态栏
如果sb=“False”，则sb=“”
将ws设置为工作表
对于ActiveWorkbook.Worksheets中的每个ws
如果0

使用工作表的属性选择要打印的工作表怎么样

像标签颜色-易于设置和一个很好的视觉指标

    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

子打印页（）
把某人当作绳子
sb=应用程序状态栏
如果sb=“False”，则sb=“”
将ws设置为工作表
对于ActiveWorkbook.Worksheets中的每个ws
如果0