Excel VBA：要将选定的工作表导出为单个pdf，Excel不会导出除第一张工作表以外的其他内容

我尝试了几种方法来包括选择工作表，然后导出为pdf。每次只有第一张纸被证明包含在pdf文件中。我要达到的目的是：1.手动选择工作表。2.运行宏。该宏将执行以下操作：1.将选定的工作表导出为单个pdf。2.取消选择选定的图纸（以免以后在选定的图纸上无意间进行编辑。）

 Sub Export_Selected_Sheets_To_PDF()
    Dim ws As Worksheet
    Dim PDF_Name, Doc_ID, Excel_Name, SelectedSheets() As String
    Dim n, i As Long
    Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")

    'Code for naming the PDF (equals excel filename including a prefix from a cell named "DocID")
    'Will be saved at same location as the excel-file
    Doc_ID = Range("DocID").Value                           'DocID = named cell in the WS
    Excel_Name = fso.GetBaseName(ActiveWorkbook.FullName)    'Excel filename without file extension
    PDF_Name = Doc_ID & "_" & Excel_Name & ".pdf"            'PDF filename

    'Showing the PDF_Name
    Debug.Print PDF_Name

    'Code for selecting the "selected" sheets
    n = 0
    For Each ws In ActiveWindow.SelectedSheets
        ReDim Preserve SelectedSheets(n)
        SelectedSheets(n) = ws.Name
        n = n + 1
    Next

    'Showing the list of selected sheets
    For i = LBound(SelectedSheets) To UBound(SelectedSheets)
        Debug.Print SelectedSheets(i)
    Next i

    'Export selected sheets to pdf
    Sheets(SelectedSheets).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF_Name, Quality:= _
    xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

    'Deactivate selection to avoid editing across selected sheets.
    ActiveSheet.Select
End Sub