Я использовал ActivePresentation.SaveAs
, что недостаточно мощно.
Это сделало работу: http://msdn.microsoft.com/en-us/library/bb231096.aspx
Sub CreateHandout()
ActivePresentation.ExportAsFixedFormat "Y:\ml\PDFs\" + Replace(ActivePresentation.name, "pptx", "pdf"), ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoCTrue, ppPrintHandoutHorizontalFirst, ppPrintOutputFourSlideHandouts, msoFalse, , , , False, False, False, False, False
End Sub
Редактор поможет вам выбрать правильные параметры с помощью IntelliSense.