Using PresentationPrint Event

  • Thread starter Thread starter Janie
  • Start date Start date
J

Janie

I have read the articles in this Forum about using Presentation events. And
I have read the articles in the PPT Tools web site found at www.pptfaq.com.
And I have downloaded the files for autoevents mentioned in the aticle "Make
PPT Respond To Events" ... and I am still not able to achieve my goal on
making sure the hidden slide does not print. Here's what I have done:

1) inserted a Class module named cEventClass
2) in that Class module wrote
Public WithEvents PPTEvent as Application
3) in the class module
Private Sub PPTEvent_PresentationPrint(ByVal Pres As Presentation)
Pres.PrintOptions.PrintHiddenSlides = False
End Sub
4) Insert a module named basEvents
5) In that module wrote:
Dim cPPTObject as New cEventClass
Set cPPTObject.PPTEvent=Application

and that's all I have ... please explain what comes next. I am baffled.

thanks
 
Well, thanks for clearing up the meaning on PresentationPrint. I agree that
PresentationOpen is more appropriate for my needs. But I still am not
successful.

At this point I have a Class module called cEventClass. It now contains:

Public WithEvents PPTEvent as Application

Private Sub PPTEvent_PresentationOpen(ByVal Pres As Presentation)
Pres.PrintOptions.PrintHiddenSlides = False
End Sub

then I have a module basEvents and the only things on that are:
Dim cPPTObject as New cEventClass
Set cPPTObject.PPTEvent=Application

and still I get all the slides when I print. Clearly I am missing
something!

I feel like a dog chasing its tail -- I keep going around and around and I
can't get to my goal!
 
OOOOOOOOOOOHHHHHH!!!! Now that was clear as mud!

Ok -- I'll give it another whack and report back.
 
still crashing and burning.

I wrote exactly the same script described .. now I get an error message that
I can't save the VBA because the Set statement is not inside a procedure
(which I thought seemed weird when I wrote it originally, but that is the way
the instructions are written in "Make PPT Events" item referred to elsewhere
in this forum.)

So ... where does that line belong so I can save the Add-In?
 
Hokey-smokes! It worked!!!!

I put the Set statement inside the Sub Auto_Open

wahoooo!

Thanks for pointing me in the right direction.
 
Back
Top