Access - Seleccionar Impresora

Val: 50

Seleccionar Impresora

Publicado por Osen (72 intervenciones) el 31/03/2018 23:17:01

Amigos de Access
Una generosa ayuda por favor.

Tengo 2 Impresoras instaladas en mi computador

Samsung M2070W y una Epson XP-201 (Predeterminada).

El caso es que hice otro botón para que imprima con la M2070W. Pero no sé cómo adaptar el código de la predeterminada para que apunte a la M2070W.

Private Sub BtnImprimirSamsung_Click()

On Error GoTo Err_BtnImprimirSamsung_Click

    Dim stDocName As String

    Dim criterio As String

    criterio = "NumeroEstadoCuenta= " & Me.NumeroEstadoCuenta

    stDocName = "Estado de Cuenta"

    DoCmd.RunCommand acCmdSaveRecord

    DoCmd.OpenReport stDocName, acNormal, , criterio

Exit_BtnImprimirSamsung_Click:

    Exit Sub

Err_BtnImprimirSamsung_Click:

    MsgBox Err.Description

    Resume Exit_BtnImprimirSamsung_Click

End Sub

Gracias de antemano

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 1.094

Seleccionar Impresora

Publicado por Norberto (753 intervenciones) el 10/04/2018 12:00:56

Hola.

Crea un módulo e introduces el siguiente código:

Public Sub CambiarImpresora(NombreImpresora As String)

    Dim Prt As Printer

    For Each Prt In Application.Printers            'Recorremos todas las impresoras.

        If Prt.DeviceName = NombreImpresora Then    'Si el nombre coincide con el que le hemos indicado

            Application.Printer = Prt               'la cambiamos

            Exit For                                'y salimos del bucle.

        End If

    Next

    If Application.Printer.DeviceName <> NombreImpresora Then                   'Si no se ha efectuado el cambio

        MsgBox "Impresora " & NombreImpresora & " no encontrada.", vbCritical   'Generamos un mensaje

    End If

    Set Prt = Nothing

End Sub

Luego sólo tienes que llamarlo antes de abrir el informe tal que así:

CambiarImpresora "Samsung M2070W"

entre las líneas 8 y 9. Si quieres restaurar la que estaba por defecto añades:

Dim OldPrinter As String

en la zona de definiciones y

OldPrinter = Application.Printer.DeviceName

antes llamar al procedimiento para cambiarla.

Luego la restauras con

CambiarImpresora OldPrinter

después de imprimir el informe.

También puedes cambiar el procedimiento por una función que te devuelva Verdadero o Falso según se haya realizado correctamente el cambio e imprimir o no en función de ello.

Un saludo,

Norberto.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar