Imprimir página | Cerrar ventana

Problemas para imprimir en una impresora especific

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86880
Fecha de impresión: 26/Marzo/2026 a las 20:58


Tema: Problemas para imprimir en una impresora especific
Publicado por: elricho
Asunto: Problemas para imprimir en una impresora especific
Fecha de publicación: 04/Marzo/2024 a las 15:34
Estimados uso access office 365, tengo este codigo donde quiero imprimir por una impresora especifica, el codifo lo sigo por el debug funciona perfecto pero siempre termina imprimiendo en la impresora predeterminada del sistema por mas que en printername ponga cualquier otra.
Sera un bug o que puede ser?
gracias

Sub ImprimirEnImpresoraEspecifica()
    Dim printerName As String
    
    ' Nombre de la impresora específica a la que quieres imprimir
    printerName = "Nombre de tu impresora específica aquí"
    
    ' Verificar si la impresora existe en la lista de impresoras instaladas
    If ImpresoraExiste(printerName) Then
        ' Establecer la impresora activa
        Application.Printer = Application.Printers(printerName)
        
        ' Aquí colocas el código para imprimir
        ' Por ejemplo:
        DoCmd.OpenReport "NombreDelReporte", acViewNormal
        
        ' Restaurar la impresora predeterminada
        Application.Printer = Nothing
    Else
        MsgBox "La impresora especificada no está instalada en el sistema."
    End If
End Sub

Function ImpresoraExiste(ByVal printerName As String) As Boolean
    Dim i As Integer
    For i = 0 To Application.Printers.Count - 1
        If Application.Printers(i).DeviceName = printerName Then
            ImpresoraExiste = True
            Exit Function
        End If
    Next i
    ImpresoraExiste = False
End Function



-------------
www.elricho.com.ar



Respuestas:
Publicado por: mounir
Fecha de publicación: 05/Marzo/2024 a las 18:39
Hola!

Tengo guardado este ejemplo de selección de impresora, espero que te sirva.

http://filebig.net/files/wCwZHHLAD4" rel="nofollow - http://filebig.net/files/wCwZHHLAD4

-------------
Un Saludo.


Publicado por: elricho
Fecha de publicación: 05/Marzo/2024 a las 18:52
Gracias amigo, ya me pongo a revisarlo, porque no hay caso , lo otro en teoria funcionaria pero nada.

Incluso ahora estoy con 1 solucion a medias predeterminando x codigo la q quiero y volviendo a predeterminar la q estaba, pero dependiendo de la memoria a veces no hace la predeterminacion bien y sin dar error queda predeterminada la que no era realmente.

Un dolor de cabeza, asi que voy a ver tu ejemplo.  Para mi access en el manejo de printer tiene algun bug.


-------------
www.elricho.com.ar


Publicado por: elricho
Fecha de publicación: 05/Marzo/2024 a las 20:18
Por favor cerrar el hilo, gracias nuevamente a mounir  , tu ejemplo es justamente lo que necesitaba, solucionado. Smile

-------------
www.elricho.com.ar



Imprimir página | Cerrar ventana