Dim intSlideNumber As Integer
On Error GoTo errHandler
intSlideNumber = ActiveWindow.Selection.SlideRange.SlideNumber
If Err.Number = -2147188160 Then
MsgBox "Select a single slide", vbOKOnly, "Error"
MsgBox Err.Number & ": " & Err.Description, vbOKOnly, "Error"
End SubHow you execute the code will depend on your needs. The current error handling catches one specific error — the error generated when you select more than one slide. The PrintOut method also lets you collate copies and print multiple copies. For more information, search for PrintOut Method in the Visual Basic Editor's Help files.
Susan Sales Harkins is an IT consultant, specializing in desktop solutions. Previously, she was editor in chief for The Cobb Group, the world's largest publisher of technical journals.