• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 884
  • Last Modified:

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.

1 Solution
This macro should do it.

Sub printMe()
Dim lngSld As Long
lngSld = SlideShowWindows(1).View.Slide.SlideIndex
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
.Ranges.Add Start:=lngSld, End:=lngSld
End With
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.
Buck_BeasomDatabase DesignerAuthor Commented:
Outstanding! Thanks.
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.

Join & Write a Comment

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

Tackle projects and never again get stuck behind a technical roadblock.
Join Now