Print slides 5 through 12 of the presentation
Sub printFrom() ActivePresentation.PrintOut From:=5, To:=12 End Sub