Print 1 Powerpoint Slide From Macro

I have a Power Point presentation and I have put a printer image in the lower right corner. The top slide has "Buttons" with hyper links to each slide. I'd like to put a macro behind the printer image so that when the show is running and the user clicks on the image, THAT SLIDE only will print.

Thanks.
Buck_BeasomDatabase DesignerAsked:
Who is Participating?
 
JSRWilsonConnect With a Mentor Commented:
This macro should do it.

Sub printMe()
Dim lngSld As Long
lngSld = SlideShowWindows(1).View.Slide.SlideIndex
With ActivePresentation.PrintOptions
.Ranges.ClearAll
.RangeType = ppPrintSlideRange
.Ranges.Add Start:=lngSld, End:=lngSld
End With
ActivePresentation.PrintOut
End Sub

Open in new window


Don't be tempted by:
.RangeType=ppPrintCurrent which sounds correct but prints the current slide in EDIT view (not always the same) Also you must clear any old Ranges or they will also print.
0
 
Buck_BeasomDatabase DesignerAuthor Commented:
Outstanding! Thanks.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.