Print current slide in presentation

  • Thread starter Thread starter Ttratl
  • Start date Start date
I haven't tested this, but it should work (famous last words):

Change the first line to:

Sub PrintCurrentSlide(oShp as Shape)

Add right after the second Dim statement:

oShp.Visible = msoFalse

Add right before the End Sub:

oShp.Visible = msoTrue

This will hide whatever button was clicked to run the macro and then unhide
it when it is done.

--David
 
Hi David,

Many thanks - that works! At last a solution!

It's thrown up another query now: after the slide is printed, all the slide
animation repeats again.

Any ideas?
 
Great. I'm glad it worked. I'm not sure about the animation replaying. I
have found that hiding and showing shapes doesn't always interact well
with animation. Your best bet might be to have a duplicate slide that
has no animation but is set up to look just like the original after the
animation has played and use that to print. However, that is just one
suggestion. Perhaps, someone else will have a better idea.
--David
 
David / Steve,
Thanks loads for both suggestions. David - already got that idea going (did
I find that on your site - can't remember, but it works!). Steve - I'm using
"ActivePresentation.SlideShowWindow.View.GotoSlide 18, msoTrue" - but I'll
try yours and see what happens.

Thanks both again!
 
My mistake - I'm getting confused with which code I'm using to make this work.

Steve - exactly where do you place your code? I've tried a few places and
it doesn't seem to work.
 
Hi Steve,
Thanks for reply again. Still couldn't get it to work, but after googling
and experimenting - changing your code to:
SlideShowWindows(1).View.GotoSlide (oShp.Parent.SlideIndex + 1)
seems to have cracked it. Hooray!
And yes - I get that I only need one lot of code, and just direct the couple
of buttons to the same code. I was getting mixed up with all the
experimenting I've been doing.
Anyway - success with yours and David's help. Big thanks!!
 
Back
Top