Non funziona!!
Il mio report si chiama rptScadenziario, quindi io faccio ...

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

... mi da "Errore di compilazione, impossibile trovare il metodo o il membro dei dati".

Se invece faccio...

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

.. mi da l'errore "Necessario oggetto".

AIUTO!!!!!!!!!!