Excel VBA To Print range To PDF And Save Using Name In Cell

Assuming you have Excel 2007+, and in the worksheet you've defined the pdf print range (PDFRange) and file to print to (pdfPathFile), you can use this code.

Sub printPDFSave()
Dim rng As Range
Dim fPathFile As String

    Set rng = [PDFRange]
    fPathFile = [pdfPathFile]
    rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPathFile, quality:=xlQualityStandard, _
        includedocproperties:=True, ignoreprintareas:=True, openafterpublish:=True
    
    
End Sub

Select allOpen in new window

See attached.

Dave
printRngAsPDF-r1.xlsm

Hello Dave
Thank you very much for this.  I get
 
"Run time error 1004.  The document was not saved ...may be open or an error was encountered."

when I click the button.  I have Excel 2007.
Regards
Brian

You need perhaps to update the range L4 - to put your path and filename that tells the app where to save the PDF?

Dave

Sorry.  I dont understand range L4.

Why does your tested solution not run on my computer?

Brian

Dave
brilliant...thanks