使用数组选择多张工作表进行打印

Sub PrintSelectedSheets()
    Dim selectedSheets() As Variant
    Dim sheet As Worksheet
    
    ' 选择需要打印的工作表
    selectedSheets = Array("Sheet1", "Sheet3", "Sheet5")
    
    ' 循环遍历选择的工作表并进行打印
    For Each sheet In ThisWorkbook.Sheets
        If IsInArray(sheet.Name, selectedSheets) Then
            sheet.PrintOut
        End If
    Next sheet
End Sub

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
    Dim element As Variant
    
    ' 遍历数组查找指定元素
    For Each element In arr
        If element = stringToBeFound Then
            IsInArray = True
            Exit Function
        End If
    Next element
    
    IsInArray = False
End Function