Print Hyperlinked Slideshow Without Hidden Slides

G

Guest

Greetings.

Ocassionally I need to print out a slideshow that consists of one main
slides without about 8-10 hyperlinks to other slide presentations.
These hyperlinked presentations contain a lot of hidden slides that
I don't need to print.

Does anybody know of a way to quickly print out this type of slide
show or can point me to a script or macro that I could execute to
do this?

Regards,

Charles
 
G

Guest

John:

Unfortunately, the hyperlinked slides are spread out over
several folders. Not only that, but these folders frequently
contain other *.ppt files that don't pertain to my slideshow.

This is the reason that I'm interested in some method or
script for printing those slides hyperlinked to the main slide.

Any other ideas?

Regards,

Charles
 
G

Guest

mAYBE SOMETHING LIKE THIS THEN:

Sub printhyperlinks()
Dim sFileName As String
Dim oSl As Slide
Dim oHl As Hyperlink

For Each oSl In ActivePresentation.Slides
For Each oHl In oSl.Hyperlinks
sFileName = Dir$(oHl.Address)

While sFileName <> ""
Set oPres = Presentations.Open(oHl.Address, msoFalse)
With oPres
..PrintOptions.PrintHiddenSlides = msoFalse
..PrintOut
End With
oPres.Close
Set oPres = Nothing
sFileName = Dir()
Wend

Next
Next

End Sub
--

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 
G

Guest

Or even this (CAPS lock under control now!)

Sub printhyperlinks()

Dim oSl As Slide
Dim oHl As Hyperlink
For Each oSl In ActivePresentation.Slides
For Each oHl In oSl.Hyperlinks
If oHl.Address <> "" Then
Set opres = Presentations.Open(oHl.Address, msoFalse)
With opres
..PrintOptions.PrintHiddenSlides = msoFalse
..PrintOut
End With
opres.Close
Set opres = Nothing
End If
Next
Next
End Sub
--

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 
G

Guest

John:

Thanks. That was very useful. Shyam's post was also helpful.

One last question...is there a property I can set to print from
last slide to first slide, i.e. to print the slides in reverse order?

Regards,

Charles
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top