If you have Service Pack 6 for Visual Basic 6.0, you could use :

Private Sub DataReport_Initialize()
DataReport1.Orientation = rptOrientLandscape 'DataReport1 is the Report's name
End Sub