Print to PDF - Save issue

[CarlStephens]

Hello All,

I currently have the below print to pdf code, and cannot for the life of me work out where it is saving the file, which I believe it is doing as the message box comes up. Is there an option in the code to bring up "Save As" once the pdf has opened to chose the save location? Also, when the code is naming the file, I need to add the persons name which is in cell A3....what would I need to add to the code to attach the name in the file name? Thank you.

Sub PrintToPDF()
Dim invoiceRng As Range
Dim pdfile As String
'Setting range to be printed
Set invoiceRng = Range("C12:L50")
pdfile = "Seabourn Offer Letter" & " - " & Format(Now(), "DD-MMM-YYYY") & ".pdf"
pdfile = ThisWorkbook.Path & strfile
invoiceRng.ExportAsFixedFormat Type:=xlTypePDF, _
filename:=pdfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "Offer letter created."
End Sub

 

[Fluff]

It's saving the file to the penultimate folder in the file path of the workbook containing code, with the final folder as the filename.
So if the workbook exists in R:\Folder1\Folder2\Folder3 the pdf will be saved in R:\Folder1\Folder2 and will be called Folder3.pdf.

Try it like

pdfile = "Seabourn Offer Letter" & " - " & Format(Now(), "DD-MMM-YYYY") & ".pdf"
pdfile = ThisWorkbook.Path & "\" & pdfile

 

[CarlStephens]

It's saving the file to the penultimate folder in the file path of the workbook containing code, with the final folder as the filename.
So if the workbook exists in R:\Folder1\Folder2\Folder3 the pdf will be saved in R:\Folder1\Folder2 and will be called Folder3.pdf.

Try it like

pdfile = "Seabourn Offer Letter" & " - " & Format(Now(), "DD-MMM-YYYY") & ".pdf"
pdfile = ThisWorkbook.Path & "\" & pdfile

Hello Sir,

The below code works a treat, however, I now need to save the created pdf to a folder location that is specified in cell H2. Would you be able to advise what I need to change the bold line to? Thank you so much.

Sub PrintToPDF()
Dim invoiceRng As Range
Dim pdfile As String
'Setting range to be printed
Set invoiceRng = Range("C7:L76")
pdfile = "Seabourn_Offer_Letter"
pdfile = ThisWorkbook.Path & "/" & pdfile
invoiceRng.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=pdfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub

 

[Fluff]

Change the ThisWorkbook to the sheet/cell where the full file path is located.

 

[CarlStephens]

Change the ThisWorkbook to the sheet/cell where the full file path is located.

Like this?

pdfile = Sheet "OL" (H2) & pdfile

 

[Fluff]

No, it needs to be like

Sheets("OL").Range("H2") & pdfile

 

[CarlStephens]

No, it needs to be like

Sheets("OL").Range("H2") & pdfile

I get this error now and the pdf file is not open anywhere. Odd. I think I might need to restart my pc.

 

[Fluff]

What is the exact value in that cell?

 

[CarlStephens]

It is basically saving it to my One Drive.

https://carnivalcorp-my.sharepoint....Documents/Joiners_Docs/Hired_Candidates/Hotel Svc/TER HOORST Harry - Hotel Director/Seabourn_Offer_Letter.pdf

 

[CarlStephens]