excel - 如何使用 VBA 代码根据单元格的值将特定页面打印为 pdf

Question

我对 Excel 不是很先进或 VBA但随着时间的推移已经设法解决了一些问题。

我目前有一个带有命令按钮的 Excel 电子表格，可将打印区域发送到 PDF。它相当简单，只需打印 2 页。

我希望命令按钮仅打印第 1 页、仅第 2 页或第 1 页和第 2 页，具体取决于单元格的值。

我目前用于将所有打印区域打印为 PDF 的代码是:

Sub PrinttoPDF()
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Range("J2").Value & "_" & Range("J4").Value & "_" & "Budget Quotation" & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

请有人建议如何修改我的代码？

非常感谢!

Answer 1

该方法有From和 To参数。

根据第 2 页上 A1 的值是 1、2 还是其他任何值，它将打印第 1 页、第 2 页或两者。

我把它放在另一张纸上，以防它弄乱你的打印。调整以适应。

最好使用工作表名称而不是 activesheet .

Sub PrinttoPDF()

Dim f As Long, t As Long    
Select Case Sheets("Sheet2").Range("A1").Value
    Case 1: t = 1: f = 1 'page 1
    Case 2: t = 2: f = 2 'page 2
    Case else: f = 1: t = 2 'pages 1-2
End Select

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Range("J2").Value & "_" & Range("J4").Value & "_" & "Budget Quotation" & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    from:=f, _
    to:=t, _
    OpenAfterPublish:=True

End Sub