It’s easy to print the current slide. Simply select the slide you want to print, choose Print from the File menu, click the Current Slide in the Print Range options, and click OK. Or select the slide you want to print and click the Print icon on the Standard toolbar. It couldn’t be simpler.
While the built-in printing features are adequate for most, you can automate the process using the following subprocedure, if necessary:

Sub PrintCurrentSlide()
Dim intSlideNumber As Integer
On Error GoTo errHandler
intSlideNumber = ActiveWindow.Selection.SlideRange.SlideNumber
Application.ActivePresentation.PrintOut intSlideNumber,
intSlideNumber
Exit Sub

errHandler:
If Err.Number = -2147188160 Then
MsgBox "Select a single slide", vbOKOnly, "Error"
Else
MsgBox Err.Number & ": " & Err.Description, vbOKOnly, "Error"
End If
End Sub

How 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.