Hola encontré este ejemplo de cómo configurar la orientación de un informe desde VisualBasic:
Este ejemplo cambiará la orientación de vertical a horizontal o viceversa, dependiendo de la orientación actual del informe.
Adecúalo a tus necesidades Ok??
Sub SwitchOrient(cadNombre As String)
Const DM_PORTRAIT = 1 'Vertical = 1
Const DM_LANDSCAPE = 2 'Horizontal = 2
Dim DevString As cad_DEVMODE
Dim DM As type_DEVMODE
Dim cadModoDispositivoExterno As String
Dim rpt As Report
' Abre el informe en la vista Diseño.
DoCmd.OpenReport cadNombre, acDesign
Set rpt = Reports(cadNombre)
If Not IsNull(rpt.PrtDevMode) Then
cadModoDispositivoExterno = rpt.PrtDevMode
DevString.RGB = cadModoDispositivoExterno
LSet DM = DevString
DM.lngCampos = DM.lngCampos Or _
DM.entOrientación ' Inicializa los campos.
If DM.entOrientación = DM_PORTRAIT Then
DM.entOrientación = DM_LANDSCAPE
Else
DM.entOrientación = DM_PORTRAIT
End If
LSet DevString = DM ' Actualiza la propiedad.
Mid(cadModoDispositivoExterno, 1, 94) = DevString.RGB
rpt.PrtDevMode = cadModoDispositivoExterno
End If
End Sub
Espero te haya sido útil......
