VBA/Excel/Access/Word/PowerPoint/Slide Print

Prints all the slides in the active presentation:

 
Sub printout()
    ActivePresentation.PrintOut
End Sub

Print slides 5 through 12 of the presentation

 
Sub printFrom()
    ActivePresentation.PrintOut From:=5, To:=12
End Sub