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
|