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"
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.