Sub toPDF()

With ActivePresentation
.ExportAsFixedFormat2 "C:\Users\ychen\Downloads\PPT_toPDF.pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoTrue, ppPrintHandoutHorizontalFirst, ppPrintOutputSlides, msoFalse, , ppPrintCurrent
End With

End Sub