Code required to PDF a worksheet with a specific filename within the workbook to a specific location

[Tonyd789]

Good evening all, I'm hoping that one of you very clever people can help me out with this request.

I'm after a macro where i push a button within the workbook that will PDF one of the worksheets within the workbook.
I would like the code to save it in a certain folder on the computer with a file name taken from a cell in the workbook and also add the date to the file name.

Hope that makes sense, thanks in advance for any help provided.

 

[breynolds0431]

Hello. Try this out.

Sub savetoPDF()

'Declares current sheet as the sheet to export, change to suit
    Dim ws As Worksheet: Set ws = ActiveSheet 'or something like Sheets("Sheet1")

'The file path is set to the path of this workbook, change to suit
    Dim fPath As String: fPath = ThisWorkbook.Path

'The file name is set to PDF Output, change range to suit
    Dim fName As String: fName = ws.Range("A2").Value & "_" & Format(Date, "mmddyyyy")

'The complete save as string
    Dim sPath As String: sPath = fPath & "/" & fName & ".pdf"

'Exports the sheet to PDF
    ws.ExportAsFixedFormat xlTypePDF, sPath

End Sub

 

[Tonyd789]

This works great thank you very much, you are a legend!

 

[jolivanes]

Or in a condensed form.
Change Sheet, Folder and Cell reference as required.

Sub Condensed()
    Sheet1.PrintOut , , , , , True, , "C:\Folder Name Here\" & Range("D4").Value & " " & Format(Date, "mm-dd-yyyy") & ".PDF"
End Sub