Excel 将范围合并为PDF

我想合并我定义的两个范围，并将其保存为pdf格式。到目前为止，我有：

Sub SaveAsPDF3()
'
' SaveAsPDF Macro
'
Dim pdfpath As String
Dim RP_Sum As Integer
Dim RP_Sum_Tot As Integer
Dim Summary As Range
Dim Critera As Range
Dim Summary_with_Criteria As Range
Set Criteria = Range("Criteria")
Set Summary = Range("Summary")


ActiveSheet.PageSetup.Orientation = xlLandscape
pdfpath = Range("Ind_RP_Pdf")

RP_Sum = Application.WorksheetFunction.CountA(Sheets("Reports").Range("A10:A100"))
MsgBox (RP_Sum)
RP_Sum_Tot = 8 + RP_Sum + 2
'MsgBox (RP_Sum_Tot)
    Range(Cells(8, 1), Cells(RP_Sum_Tot, 11)).Name = "Summary"
Set Summary_with_Criteria = Application.Union(Summary, Criteria)

Range("Summary_with_Criteria").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=pdfpath, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Range("Report_Learner").Select
End Sub

我在ExprotAsFixedformat行上得到一个错误

有什么建议吗？

---

谢谢

只需写下：带有标准的摘要。ExportAsFixedFormat。。。嗯，还有一些其他语法方面的东西…谢谢Chrismas007，除了它将第二个范围放在一个单独的页面上之外，它工作正常。在这种情况下，我只需将每个范围复制到一个临时工作表，将该工作表另存为PDF，然后删除该工作表。好的，谢谢-我会尝试一下