It's easy to print the current PowerPoint slide — and almost as easy to automate the process.
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.