Header
PowerPoint tips, hints and tutorials that will change your presentations for ever!

INDEX

 

Jigsaws
Sounds
Video
Custom Shows
vba code
NaviSlides
Games for teachers
Bullets
Triggers
Security
Flash Cards
Multiple Instances
PowerPoint 2007
Mail Merge
Random events
Animation
Hyperlinks
Set spellcheck language


Home buttonTutorial buttonContact buttonProducts button

PowerPoint vba - Print Odd or Even

Sometimes you need to print only the odd (or only the even) slides.

You can of course do this manually by typing in a custom range: 1,3,5,7,9...

or by selecting the slides you need and choosing print selection.

This is OK if you have a few slides but will get tedious if you have hunreds, This code will do it for you!

Sub Odd_EvenPrint()
Dim Odd_Even As Long
Dim L As Long
If ActivePresentation.Slides.Count < 2 Then Exit Sub 'Only 1 slide!!
ActivePresentation.PrintOptions.Ranges.ClearAll
Odd_Even = InputBox("1 for odd, 2 for even")
Select Case Odd_Even
Case Is = 1, 2
For L = Odd_Even To ActivePresentation.Slides.Count Step 2
With ActivePresentation.PrintOptions
.Ranges.Add L, L
.RangeType = ppPrintSlideRange
.OutputType = ppPrintOutputSlides
End With
Next
ActivePresentation.PrintOut
End Select
End Sub

That's Good but I need Two Slide Handouts!

If you need something other than slides you need to alter the line:

.OutputType = ppPrintOutputSlides

Common things to use:

.OutputType = ppPrintOutputTwoSlideHandouts
.OutputType = ppPrintOutputThreeSlideHandouts
.OutputType = ppPrintOutputFourSlideHandouts
.OutputType = ppPrintOutputNotesPages

 

Don't know how to use this code SEE HERE

 

 

 

Back to the Index Page

POWERPOINT BLOG

Articles on your favourite sport

Free Microsoft PowerPoint Advice, help and tutorials, Template Links
This website is sponsored by Technology Trish Ltd
© Technology Trish 2007
Registered in England and Wales No.5780175
PowerPoint® is a registered trademark of the Microsoft Corporation