prova così:


Private Sub DataReport_Initialize()
NomeReport.Orientation = rptOrientLandscape
End Sub

dovrebbe funzionare.