setting landscape option thorugh code

  • Thread starter Thread starter Mario
  • Start date Start date
M

Mario

How do I set a report through code (in the events properties) to print in
landscape?

Thank you
 
Mario said:
How do I set a report through code (in the events properties) to print in
landscape?

Thank you
Click to expand...

Paste the following code into a new, standard module:

''' CODE START '''
Type str_DEVMODE
RGB As String * 94
End Type

Type type_DEVMODE
strDeviceName As String * 16
intSpecVersion As Integer
intDriverVersion As Integer
intSize As Integer
intDriverExtra As Integer
lngFields As Long
intOrientation As Integer
intPaperSize As Integer
intPaperLength As Integer
intPaperWidth As Integer
intScale As Integer
intCopies As Integer
intDefaultSource As Integer
intPrintQuality As Integer
intColor As Integer
intDuplex As Integer
intResolution As Integer
intTTOption As Integer
intCollate As Integer
strFormName As String * 16
lngPad As Long
lngBits As Long
lngPW As Long
lngPH As Long
lngDFI As Long
lngDFr As Long
End Type

Sub SwitchOrient(rpt As Report)

Const DM_PORTRAIT As Integer = 1
Const DM_LANDSCAPE As Integer = 2
'
Dim DevString As str_DEVMODE
Dim DM As type_DEVMODE
Dim strDevModeExtra As String
'
If Not IsNull(rpt.PrtDevMode) Then
strDevModeExtra = rpt.PrtDevMode
DevString.RGB = strDevModeExtra
LSet DM = DevString
DM.lngFields = DM.lngFields Or DM.intOrientation
If DM.intOrientation = DM_PORTRAIT Then
DM.intOrientation = DM_LANDSCAPE
Else
DM.intOrientation = DM_PORTRAIT
End If
LSet DevString = DM
Mid(strDevModeExtra, 1, 94) = DevString.RGB
rpt.PrtDevMode = strDevModeExtra
End If

End Sub
''' CODE END '''

Then you can either call it from the report's module:

SwitchOrient Me

or from outside the report's module:

SwitchOrient Reports!MyReportName

The code toggles the orientation between Landscape and portrait, so if your
report is originally portrait, it will output in landscape.
 
Back
Top