Couple of years too late,
but i used to solve it by putting the path and filename in the clipboard before printing to pdf
Dim MyText As DataObject Set MyText = New DataObject vrLB0pdfFile = "c:\dir\subdir\filename.pdf" MyText.SetText CStr(vrLB0pdfFile) MyText.PutInClipboard Application.ActivePrinter = PRINTPDF ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:=PRINTPDF, Collate:=True
and afterwards ctrl-v path and filename string when saves as location is prompted by pdfcreator.
However the latest versions require path and filename to be in a seperate field.