Powerpoint VisualBasic Script

Sub printout()
    ActivePresentation.PrintOut
End Sub