This example prints the current slide the active presentation.
With ActivePresentation
.PrintOptions.RangeType = ppPrintCurrent
.PrintOut
End With
This example runs the named slide show "Quick Show."
With ActivePresentation.SlideShowSettings
.RangeType = ppShowNamedSlideShow
.SlideShowName = "Quick Show"
.Run
End With