Save .pdf in specific location

[hkelly]

I have this which works great...except for the file location. For some reason it's forcing the file save to c:\users\username\documents

I ultimately don't want it in Downloads at all but I'm using this path for testing. I'm sure it's obvious but I'm clearly missing something.

Anyone help? It otherwise saves the file name as I want it and as a .pdf which is perfect.


Sub printPDFSave()
Dim rng As Range
Dim fPath As String
Dim FName As String

Set rng = [Print_Area]
rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath, quality:=xlQualityStandard, _
includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=True
fPath = "C:\Users\username\Downloads"
FName = Format(Date, "yyyymmdd""-") & Sheets("MHGRIC").Range("BP2").Text



End Sub

 

[hkelly]

Actually, I lied! It's not working great at all. The file name isn't saving as designed. I was looking at a different file I saved previously.

Goal: Save as a specific name using data from a cell within my sheet and to a specific location on my computer.

 

[John_w]

Maybe:

fPath = "C:\path\to\folder\"  'CHANGE THIS
If Right(fPath,1) <> "\" Then fPath = fPath & "\"
FName = Format(Date, "yyyymmdd-") & Sheets("MHGRIC").Range("BP2").Text
rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & FName, quality:=xlQualityStandard, _
includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=True