Enumerar las Impresoras del Sistema

Este bucle enumera la colección Printers y devuelve los nombres de los dispositivos (impresoras) instaladas.

En cualquier parte del código. Por ejemplo en Form_Load:

Dim Impresora As Printer
For Each Impresora In Printers
    Debug.Print Impresora.DeviceName        
Next

Luego para seleccionar una de ellas realizas:

Dim Impresora As Printer
For Each Impresora In Printers
    If Impresora.Orientation = vbPRORPortrait Then
        ' La activa para imprimir
        Set Printer = Impresora
        ' Sale del bucle
        Exit For
    End If
Next
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s