Save to pdf with a pre-defined filename

I'm trying to adapt a macro from Ken Puls (www.excelguru.ca) which uses the print to pdf function in Excel2007 so that is has a predefined filename (job number, date, job type, users initials).

I have the following two snippets and I need to know how to combine them. I think I need something like the following:

Dim sDefaultName as String
        sDefaultName = 'picked up from worksheet
' then a combination of the next two lines
        vPDFPath = Application.GetSaveAsFilename(, "PDF Files (*.pdf), *.pdf")
        Application.Dialogs(xlDialogSaveAs).Show sDefaultName

' code continues

How can I combine those two lines? Is it possible with print to pdf?

Thanks in advance.