This example prints slide 1, slides 3 through 5, and slides 8 and 9 in the active presentation.
With ActivePresentation
With .PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.Add 1, 1
.Add 3, 5
.Add 8, 9
End With
End With
.PrintOut
End With