Ranges Property Example

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