使用Selection.ExportAsFixedFormat正确生成PDF

Question

我想将pdf中的所有工作表导出为pdf，但第一个工作簿除外。为此，我使用Selection.ExportAsFixedFormat而不是ActiveWorkbook.ExportAsFixedFormat。

使用Selection.ExportAsFixedFormat的问题是，对于每张纸，其中唯一一部分将出现在对应的pdf页面上是手动选择，而不是应该是所有打印区域（如果我只选择一个单元格）它将是pdf上出现的唯一一个）。使用ActiveWorkbook.ExportAsFixedFormat，pdf按预期生成。

Sub PDF()
    Dim SaveAsStr As String
    Dim strName As String
    Dim i As Long
    ReDim ArraySh(2 To Sheets.Count)

    For i = 2 To Sheets.Count
        ArraySh(i) = Sheets(i).Name
    Next

...

    'ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:=SaveAsStr & ".pdf", OpenAfterPublish:=True, IgnorePrintAreas:=False

    Sheets(ArraySh).Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:=SaveAsStr & ".pdf", OpenAfterPublish:=True, IgnorePrintAreas:=False

End Sub

如何使用Selection方法正确生成PDF？