ACC2000: How to Build a Visual Basic Module to Print a Report in Landscape Mode on Legal-Size Paper (302416)

MORE INFORMATION

1. In Access, press ALT+F11 to start the Visual Basic Editor.
2. On the Insert menu, click Module, and then add the following code to the new module:

   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
   
   Public Function SetLegalSize(strName As String)
      Dim rpt As Report
      Dim strDevModeExtra As String
      Dim DevString As str_DEVMODE
      Dim DM As type_DEVMODE
   
   DoCmd.OpenReport strName, acDesign 'Opens report in Design view.
   
   Set rpt = Reports(strName)
   
   If Not IsNull(rpt.PrtDevMode) Then
      strDevModeExtra = rpt.PrtDevMode
      DevString.RGB = strDevModeExtra
      LSet DM = DevString
      DM.lngFields = DM.lngFields Or DM.intOrientation 'Initialize fields.
      DM.intPaperSize = 5 'Legal size
      DM.intOrientation = 2 'Landscape
      LSet DevString = DM 'Update property.
      Mid(strDevModeExtra, 1, 94) = DevString.RGB
      rpt.PrtDevMode = strDevModeExtra
      DoCmd.Save acReport, strName
      DoCmd.Close acReport, strName
   End If
   
   End Function
   					

3. Add the following code to an On Click event for a command button:

   SetLegalSize("<report name>")
   DoCmd.OpenReport "<report name>", acViewPreview