使用Selection.ExportAsFixedFormat正确生成PDF

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

使用Selection.ExportAsFixedFormat的问题是，对于每一张纸来说，它将出现在对应的pdf页面上的唯一部分是手动select，而不是所有的打印区域，因为它应该是（如果我只select一个单元格，它将是唯一一个出现在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？