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页以上，因此上面的代码目前创建的PDF文件包含 Sheet1 中的所有页面。但是，我想实现只有第一页显示在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

可能有更好的方法，但我现在无法想到它。希望其他人会。

在Excel工作表

1 个答案: