Excel 2013 Print to PDF in VBA

Question

As it seems that Excel 2013 allow for direct Save as to PDF format, how can in perform this using VBA code ? I would like to build a macro that will automatically create a PDF from a worksheet (with the name of the file being passed as String variable). Many thanks to you all

Answer 1

Try

Dim fp As String
Dim wb As Workbook

fp = "C:\temp\foo.pdf"
Set wb = ActiveWorkbook

wb.ExportAsFixedFormat Type:=xlTypePDF, _
                       Filename:=fp, _
                       Quality:=xlQualityStandard, _
                       IncludeDocProperties:=True, _
                       IgnorePrintAreas:=False, _
                       OpenAfterPublish:=False

*Note that ExportAFixedFormatmust have all its variables on one line or it will not compile.
**Note that the '_' characters should allow this to compile whilst not being all on one line