T4667_Export Specific Range To PDF

https://excel-egy.com/forum/t4667
---------------------------------

Private Sub CommandButton1_Click()
    Dim msg As String, fn As String, f As Boolean

    msg = MsgBox("Will You Open The PDF File?", vbQuestion + vbYesNo)
    If msg = vbYes Then f = True

    With ThisWorkbook.Sheets(1)
        fn = .Range("C6").Value
        .Range("A2:H41").ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "\" & fn & ".pdf", OpenAfterPublish:=f
    End With
End Sub