This might get you started. Prints the current slide to the default printer

Sub printme()
Dim curr As Long
curr = SlideShowWindows(1).View.CurrentShowPosition
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
.OutputType = ppPrintOutputSlides
.Ranges.ClearAll
.Ranges.Add Start:=curr, End:=curr
End With
ActivePresentation.PrintOut
End Sub

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials