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

Sub ExportToPDF()
    Dim ws As Worksheet
    Dim rng As Range
    Dim pdfPath As String
    
    ' 设置工作表和打印区域
    Set ws = ThisWorkbook.Worksheets("工作表名称") ' 替换为实际的工作表名称
    Set rng = ws.Range("A1:G10") ' 替换为实际的打印区域
    
    ' 设置PDF保存路径
    pdfPath = "C:\路径\文件名.pdf" ' 替换为实际的保存路径和文件名
    
    ' 打印并保存为PDF
    With ws.PageSetup
        .PrintArea = rng.Address
        .Orientation = xlPortrait ' 打印方向，可选xlPortrait（纵向）或xlLandscape（横向）
        .FitToPagesWide = 1 ' 自动调整打印宽度
        .FitToPagesTall = 1 ' 自动调整打印高度
    End With
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard
End Sub