Printing to PDF using Application.Dialogs(xlDialogPrint).Show

[lnagel]

I have a routine to print a worksheet using Application.Dialogs(xlDialogPrint).Show

This works fine if user is printing to a printer

However - I want to allow the user to Print To PDF but save the PDF to a Specific Folder

The Print to PDF works fine except I cant figure out how to default the location which seems to randomly change

I have tried setting specific path in VB

DesktopPath = ActiveWorkbook.Path
ChDir DesktopPath

and

Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
ChDir DesktopPath

Both of these return the correct path but have no effect on where the default location is for printing to PDF

Thanks in advance for any assistance

 

[ParamRay]

Try using the ExportAsFixedFormat method of the Worksheet instead, which allows you to specify a file path.

To see the syntax, record a macro while you do File --> Save As and then choose PDF as the file format.