Cómo obtener una lista de impresoras en VB6

Incluso en la era de la información digital, es importante mantener registros e imprimir copias impresas de la información en papel. Es posible que usted o su personal reemplacen, reparen o cambien continuamente las impresoras o las configuraciones de la impresora. Microsoft VB6 permite una fácil interacción con las impresoras conectadas al sistema a través del objeto "Impresora". Use algunas líneas de código VB6 para obtener una lista de impresoras disponibles para su uso.

1.

Declare un control ListBox para seleccionar entre las impresoras y una matriz para contener los objetos de la impresora:

Dim printerListBox como ListBox Dim currentPrinterList () como impresora

2.

Declare una nueva subrutina privada para obtener la lista de impresoras. Esta subrutina acepta como entrada un control ListBox creado en otra parte de su programa VB y lo llena con la lista de impresoras disponibles. Los parámetros se pasan por referencia, en lugar de por valor, para permitir que se modifiquen:

Función privada getPrinterList (ByRef myListBox como ListBox, ByRef myPrinterList as Printer) 'Reemplace este comentario con el código del resto de los Pasos EndSub

3.

Cree una nueva variable de entero y almacene el número de impresoras detectadas:

Dim printerCount as Integer printerCount = Printer.Count

4.

Lanzar un error a través de un cuadro de mensaje si no se detectan impresoras en el sistema:

Si printerCount = 0 MsgBox "No se detectaron impresoras en el sistema". Terminara si

5.

Restablezca la longitud de la matriz de su impresora para que sea igual al número actual de impresoras:

ReDim myPrinterList (0 a printerCount)

6.

Iterar a través de cada impresora detectada, guardando el nombre del dispositivo en el ListBox y la referencia a la matriz:

Disminuya el recuento como entero Para recuento = 0 a printerCount-1 myPrinterList (recuento) = Impresoras (recuento) myListBox.addItem Impresoras (recuento).

Recomendado