Nel modulo del Report:
With Me
.Orientation = rptOrientLandscape
. ...
. ...
End With