Printing a range of slides with 2 slides to a page

[albino_pygmy]

I've lovingly borrowed this code from a help site (thanks John!) and was wondering if there are features that could tell it to print two to a page? This slideshow is set in portrait and I'd like it to print two to a landscape page when clicked.

I've already defined 'cards' as a user input variable in a previous subroutine which duplicates the second slide X number of times while in slideshow mode on slide 1.



Sub printCurr2()Dim currSldnum As Long
currSldnum = SlideShowWindows(1).View.CurrentShowPosition
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
.Ranges.ClearAll ' kill any current range settings
.Ranges.Add Start:=currSldnum + 1, End:=currSldnum + cards + 1
End With
ActivePresentation.PrintOut
End Sub

[John Wilson]

Add this to the Print Options

.OutputType = ppPrintOutputTwoSlideHandouts

I don't think you can force a landscape print with vba though you will need to set it manually before running the code