Sección de controles Ocx para Visual basic , Dll , Activex

191 - Parche para poder imprimir un datareport en horizontal

Recurso enviado por Gerardo Castro para cambiar la orientación de la impresora

El setup contiene los siguientes archivos:

Un proyecto dll activex con el código fuente del dll
La dll ya compilada ( archivo PageSet.dll )
Txt con notas adicionales sobre el activex

El ejemplo para usarlo desde un DataReport e imprimir el listado es el siguiente :

( Registrar la dll con Regsvr32 )

      Dim obj As PageSet.PrinterControl

      Private Sub Command1_Click()
         On Error GoTo errorhandler:
         Set obj = New PrinterControl
         obj.ChngOrientationLandscape
         DataReport1.Show
         DataReport1.PrintReport False, rptRangeFromTo, 1, 1

         Exit Sub

      errorhandler:
          MsgBox Err.Description
          obj.ReSetOrientation
    
      End Sub

      Private Sub Form_Unload(Cancel As Integer)

         obj.ReSetOrientation 'This resets the printer to portrait.

      End Sub

Descargar

También desde este enlace podés descargar solo el módulo de clase para no tener que registrar el dll.

El módulo tiene tres métodos : uno para establecer la orientación a Landscape, otro para establecerla en Portrait y otro para reestablecer todo

Descargar

Relacionados

Página con ejemplos sobre impresión e impresoras en vb

Buscar en Recursos vb con Google