Microsoft Office Forums - View Single Post - [Solved] How to print on both sides of a page manually

JohnWilson · 03-20-2012, 07:18 AM

Those instructions only apply to Word. They don't exist in PowerPoint

You would have to manually type in the slides to print

These macros will do the hard work for you. If you have an odd number of slides you should remove the last slide before printing the even numbers.

Code:

Sub OddPagesForwards()
Dim L As Long
With ActivePresentation.PrintOptions
.Ranges.ClearAll
.RangeType = ppPrintSlideRange
For L = 1 To ActivePresentation.Slides.Count Step 2
.Ranges.Add L, L
Next L
End With
CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub

Sub EvenPagesBackwards()
Dim L As Long
With ActivePresentation.PrintOptions
.Ranges.ClearAll
.RangeType = ppPrintSlideRange
If ActivePresentation.Slides.Count / 2 = ActivePresentation.Slides.Count \ 2 Then
For L = ActivePresentation.Slides.Count To 2 Step -2
.Ranges.Add L, L
Next L
Else
For L = ActivePresentation.Slides.Count - 1 To 2 Step -2
.Ranges.Add L, L
Next L
End If
End With
CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub

How to use code