Button in Excel to Save as PDF

[lesley burlingham]

I have a button on my workbook which opens the Save As dialog box. I need the fiolw to be saved as a PDF. Is this possible.

vFilename = Application.GetSaveAsFilename(FileFilter:="Microsoft Excel Workbooks,*.xls")

If vFilename <> False Then ActiveWorkbook.SaveAs vFilename

 

[Asheesh]

Hi,

The below link should help..

http://forum.chandoo.org/threads/vba-to-save-page-as-pdf-name-to-come-from-cell-values.11741/

 

[Chihiro]

@lesley burlingham

What version of Excel are you using? I ask since you have ".xls" in your code.
Office 2003 does not have native ability to save as PDF and will require 3rd party software.