How to Create a Handout in PDF using PowerPoint and VBA

If you need to create a handout programmaticaly in PowerPoint using VBA, then this code snippet can be handy.

Sub CreateHandout()
ActivePresentation.ExportAsFixedFormat "c:\pdf\" + Replace(ActivePresentation.name, "pptx", "pdf"), ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoCTrue, ppPrintHandoutHorizontalFirst, ppPrintOutputFourSlideHandouts, msoFalse, , , , False, False, False, False, False
End Sub