Print PDF Code

[zplugger]

Can't seem to make this work, the first part open a folder with all the subs by value in C13. In C16 is the name of file,I want to click a button and have the folder open then chose the sub and save the
file as pdf.Can this be done and only have one dialog box open?

 With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "c:\Users\larry\Dropbox\Builders-Excel\" & Range("C13")
.Show
End With
Application.Dialogs(xlDialogSaveAs).Show arg1:=Sheets("proposal").Range("C16").Value, arg2:=57
Sheets("proposal").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheets("proposal").Range("C16").Value