How to open (Publish as PDF or XPS) Dialog Box by a VBA Code?

Hi everyone,

I am using the following code to open (Save As) Dialog Box:

Application.GetSaveAsFilename

I am also using the following code to open (Open) Dialog Box:

Application.GetOpenFilename

However, after installing (Save As PDF Add-In) in MS Office 2007, What is the proper VBA code to open (Publish as PDF or XPS) Dialog Box?

Temporarily, I am using the following two codes and they work fine, but I think they are not the correct codes for such cases,

Application.SendKeys ("{F12}{TAB}P{TAB}")

OR

If Application.GetSaveAsFilename(ActiveWorkbook.Path & "\" & ActiveSheet.Name, _
"PDF (*.PDF), *.PDF") = False Then Exit Sub

I appreciate your usual help,

Best Regards,

Hi,

Thank you royUK for your reply,

I checked Ron de Bruin's codes and I figured out that he used Applicaiton.GetSaveAsFilename in all codes, which works fine but when the same pdf file name is already existing in the folder your are saving the new pdf file in, it dones' give you a warning of that but it overwrites it directly.

That is why I wanted to know the proper code for open Save as PDF dialog box?

Regards,