 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / General PowerPoint Questions / September 2006Print Hyperlinked Slideshow Without Hidden Slides
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 I answered your first thread Charles! http://www.microsoft.com/communities/newsgroups/list/en-us/default.aspx?&query=C harles+in+Iraq&lang=en&cr=us&guid=&sloc=en-us&dg=microsoft.public.powerpoint&p=1 &tid=51194fac-ed1b-45e3-a26b-3a99944e9f0c  SignatureDid that answer the question / help? _____________________________ John Wilson Microsoft Certified Office Specialist http://www.technologytrish.co.uk/ppttipshome.html > Greetings. > [quoted text clipped - 10 lines] > > Charles 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 > I answered your first thread Charles! > http://www.microsoft.com/communities/newsgroups/list/en-us/default.aspx?&query=C harles+in+Iraq&lang=en&cr=us&guid=&sloc=en-us&dg=microsoft.public.powerpoint&p=1 &tid=51194fac-ed1b-45e3-a26b-3a99944e9f0c [quoted text clipped - 13 lines] > > > > Charles 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 SignatureDid that answer the question / help? _____________________________ John Wilson Microsoft Certified Office Specialist http://www.technologytrish.co.uk/ppttipshome.html > John: > [quoted text clipped - 28 lines] > > > > > > Charles 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 SignatureDid that answer the question / help? _____________________________ John Wilson Microsoft Certified Office Specialist http://www.technologytrish.co.uk/ppttipshome.html > mAYBE SOMETHING LIKE THIS THEN: > [quoted text clipped - 55 lines] > > > > > > > > Charles 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 > Or even this (CAPS lock under control now!) > [quoted text clipped - 16 lines] > Next > End Sub Most printers have this facility built in. Sometimes setting the print range to eg 10 - 1 does it SignatureDid that answer the question / help? _____________________________ John Wilson Microsoft Certified Office Specialist http://www.technologytrish.co.uk/ppttipshome.html > John: > [quoted text clipped - 27 lines] > > Next > > End Sub Take a look here: How to print hyperlinked presentations http://skp.mvps.org/pptxp021.htm SignatureRegards, Shyam Pillai Toolbox http://skp.mvps.org/toolbox > Greetings. > [quoted text clipped - 10 lines] > > Charles |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.