在Excel工作表中创建第一页的PDF

我使用以下VBA代码从Excel文件中的Sheet1创建PDF：

Sub Create_PDF()
    Sheet1.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & "Only First Page" & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Sheet1包含多个页面，因此上面的代码当前创建了一个包含所有页面的PDF文件Sheet1。但是，我希望实现PDF中只显示第一页

---

要排除Sheet1中的其他页面，我必须在代码中更改什么？

一个简单的方法是指定页面1的范围。例如，如果第1页的范围是A1到I36，则添加这段代码

范围（“A1:I36”）

。见下文：

Sub Create_PDF()
Sheet1.Range("A1:I36").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & "Only First Page" & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

---

也许有更好的办法，但我现在想不起来。希望其他人会

您可以使用范围函数。所以

sheet1.范围（“A1:I36”）。导出…

只需更改范围以选择第一页上的所有内容