FitToPage Property Example

This example prints the active presentation and scales each slide to fit the printed page.

With ActivePresentation
    .PrintOptions.FitToPage = True
    .PrintOut
End With