This example sets handouts of the active presentation to contain six slides per page, orders the slides horizontally on the handouts, and prints them.
With ActivePresentation
.PrintOptions.OutputType = ppPrintOutputSixSlideHandouts
.PrintOptions.HandoutOrder = ppPrintHandoutHorizontalFirst
.PrintOut
End With