This example displays a message that indicates the starting and ending slide numbers for print range one in the active presentation.
With ActivePresentation.PrintOptions.Ranges
If .Count > 0 Then
With .Item(1)
MsgBox "Print range 1 starts on slide " & .Start & _
" and ends on slide " & .End
End With
End If
End With