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

Question

我有以下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

由 1 个以上的页面组成，因此上面的代码当前创建一个包含 Sheet1 中所有页面的 PDF 文件。但是，我希望在PDF中仅显示第一页。

我必须在代码中更改哪些内容才能排除 Sheet1 中的其他页面？

Answer 1

一个简单的方法是指定第 1 页的范围。例如，如果第 1 页的范围从 A1 到 I 36，请将这段代码添加到 range("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

可能有更好的方法，但我现在想不起来。希望其他人会。