选择要PDF的选定单元格的特定区域，然后在工作表中使用VBA打印

Sub PrintSelectedRangeToPDF()
    Dim selectedRange As Range
    Dim filePath As String
    
    ' 选择要打印的特定区域
    Set selectedRange = Selection
    
    ' 弹出文件保存对话框，选择保存PDF的路径和文件名
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "保存为PDF"
        .Filter = "PDF 文件 (*.pdf), *.pdf"
        If .Show = -1 Then
            filePath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ' 将选定区域保存为PDF文件
    selectedRange.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard
    
    ' 提示保存成功
    MsgBox "PDF 文件保存成功！"
End Sub