Access - AYUDA URGENTE: Configuracion de IMPRESION de INFOR

Private Sub btnImprimir_Click()

    Dim objWord As Object

    Set objWord = CreateObject("Word.Application")

    'Abre el informe en vista preliminar

    DoCmd.OpenReport "nombre_informe", acViewPreview

    'Configura las propiedades de impresión

    With objWord.ActivePrinter

        .PaperSize = 2 'Tamaño del papel (2 = Carta)

        .LeftMargin = 50 'Margen izquierdo en puntos

        .RightMargin = 50 'Margen derecho en puntos

        .TopMargin = 50 'Margen superior en puntos

        .BottomMargin = 50 'Margen inferior en puntos

        .PrintQuality = 600 'Calidad de impresión en dpi

    End With

    'Imprime el informe

    DoCmd.OpenReport "nombre_informe", acViewNormal

    'Cierra el objeto Word

    objWord.Quit

    Set objWord = Nothing

End Sub