Print Every Other Page

[Rome]

Is it possible to create a macro that would either print every other page or take every other page and save it as a new file?

For example, I have a nine page deck (real decks are much larger) and I execute a macro that will send pages 1, 3, 5, 7 and 9 to the printer. Alternatively, sending the same pages to a new file would work - as I could then print them normally.

Bonus: Would be great if there were an option to choose at what slide to stop the printing. In case I only wanted slides 1 through 5 in my earlier example.

Thanks for reading,

Rome :help

[John Wilson]

Rome

If there are not too many slides it may be quicker to ctrl click in sorter view and then print selection?

If you have a lot this code will print out odd number slides:

Sub oddprint()
Dim i As Integer
Dim opres As Presentation
Set opres = ActivePresentation


With opres.PrintOptions
.OutputType = ppPrintOutputSlides
.RangeType = ppPrintSlideRange
.Ranges.ClearAll
For i = 1 To opres.Slides.Count Step 2
'for a specific top value use instead
'For i = 1 To xx Step 2
.Ranges.Add i, i
Next i
End With

opres.PrintOut

End Sub

[Rome]

Thanks John - you really are a PowerPoint MVP! :bow:

[John Wilson]

Thanks John - you really are a PowerPoint MVP! :bow:
Thank you - and actually I just heard (April 1st would you believe) that I am (again) an MVP for another year!