Can I Save a Selected Worksheet Range as a PDF with Automated File Name?

[rver7014]

Hi All,

I'm looking to assign a macro to a command button that allows me to save the selected range to pdf in a predetermined folder in the directory. On top of this I would like to be able to automate to file name based on cell contents in the worksheet.

Is anyone able to provide the code for this macro?

Thanks in advance.

 

[JoeMo]

Hi All,

I'm looking to assign a macro to a command button that allows me to save the selected range to pdf in a predetermined folder in the directory. On top of this I would like to be able to automate to file name based on cell contents in the worksheet.

Is anyone able to provide the code for this macro?

Thanks in advance.

Yes, but you're a bit slim on necessary details. The code below (untested) assumes you want to save to the same folder the source worbook is in, and that the file name you want to assign is in cell A1. Change either to suit.

Sub PDFofRange()
Dim R As Range
If TypeName(Selection) = "Range" Then
    Set R = Selection
    R.ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook.Path & _
        Application.PathSeparator & Range("A1").Value
End If
End Sub

EDIT: Place a forms control command button on your sheet and assign the macro to it.

 

[Kenneth Hobson]

Welcome to the forum!

In a Module:

Sub Main()
  With Worksheets("Sheet1")
    Selection.ExportAsFixedFormat xlTypePDF, Environ("temp") & "\" & _
      .Range("A1").Value
  End With
End Sub