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
NextLuego 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
Posted
jue, sep 23 1999 20:28
by
Maverick