Print Hyperlinked Slideshow without Hidden Slides

[Charles in Iraq]

Greetings:

I maintain a slideshow that consists of a main slide with about 10 hyperlinks
to various subpresentations. Can anybody point out a method or show me
a macro that I can use to print out each hyperlinked subpresentation WITHOUT
printing the hidden slides?

Regards,

Charles In Iraq

 

[John Wilson]

This should ( I didnt test it!) print out all ppts in the folder C:\Files
without hidden slides. You should be able to adapt.

Code adapted from Steve Rindsberg's pptfaq page
--
Sub nohiddenprint()

Dim sFileName As String
Dim oPres As Presentation
Dim oFolder As String
oFolder = "C:\Files\"
sFileName = Dir$(oFolder & "*.ppt")

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

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