TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub AlternatePrint()
' Prints alternate slides and notes pages from each
' slide in the presentation

    Dim x As Long

    With ActivePresentation

        For x = 1 To .Slides.Count

            ' Print a slide:
            With .PrintOptions
                .OutputType = ppPrintOutputSlides
                .RangeType = ppPrintSlideRange
                With .Ranges
                    .ClearAll
                    .Add Start:=x, End:=x
                End With
            End With
            .PrintOut

            ' Print a notes page
            With .PrintOptions
                .OutputType = ppPrintOutputNotesPages
                .RangeType = ppPrintSlideRange
                With .Ranges
                    .ClearAll
                    .Add Start:=x, End:=x
                End With
            End With
            .PrintOut

        Next

    End With

End Sub