VBA Excel在打印PDF时隐藏带有名称的工作表

Sub PrintPDF()
    Dim ws As Worksheet
    Dim tempSheet As Worksheet
    Dim hideSheets As String
    Dim fileName As String
    
    ' 设置需要隐藏的工作表名称，多个工作表之间用逗号分隔
    hideSheets = "Sheet2,Sheet3"
    
    ' 创建一个临时工作表，用于复制需要打印的工作表
    Set tempSheet = ThisWorkbook.Worksheets.Add
    
    ' 复制需要打印的工作表到临时工作表
    For Each ws In ThisWorkbook.Worksheets
        If InStr(1, hideSheets, ws.Name) = 0 Then
            ws.Copy After:=tempSheet
        End If
    Next ws
    
    ' 删除临时工作表中的第一个空白工作表
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
    
    ' 设置保存PDF的文件名和路径
    fileName = "C:\Path\to\save\file.pdf"
    
    ' 打印并保存PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
    
    ' 关闭临时工作簿
    ThisWorkbook.Close SaveChanges:=False
End Sub