Cómo obtener una lista de impresoras en VB6

Parte de la programación de una aplicación de escritorio está dando a los usuarios la capacidad de imprimir. Para que los usuarios imprimir un documento, es posible que desee hacer una lista de todas las impresoras disponibles configuradas en la máquina. Esto ofrece a los usuarios la posibilidad de elegir dónde pueden imprimir el documento. Puede obtener una lista de las impresoras configuradas utilizando el Visual Basic (VB) objeto "Impresora". El objeto de la impresora contiene una lista de impresoras, para que pueda recorrer y mostrar cada uno.

Instrucciones

1 Crear una variable entera y asignarle el recuento total de las impresoras. Esto es necesario para que sepa cuántas veces del ciclo a través del objeto de impresora. El código para crear una variable de VB es el siguiente:
Dim i como entero
i = Printer.Count

2 Pantalla "No hay ninguna impresora configurada" si el usuario no tiene dispositivos instalados. Este es un método de comprobación de errores para evitar mostrar nada para el usuario. Si la variable i creado en el paso 1 es cero, entonces usted sabe que no hay impresoras se configuran. El código de abajo anuncia al usuario que no hay impresoras instaladas:
Si i = 0 Entonces
MsgBox "No hay ninguna impresora instalada"
Terminara si

3 Lazo a través del objeto de impresora y añadir la lista de impresoras a un control de cuadro de lista. Esto le da al usuario la posibilidad de hacer clic en una impresora. El código para mostrar cada impresora es el siguiente:
j tenue como entero
Para j = 0 a i - 1
Impresoras listbox1.AddItem (j) .DeviceName
Lazo

4 Guarde el nuevo código y pulse la tecla "F5". La tecla "F5" se ejecuta la aplicación en el depurador y le permite comprobar el nuevo código. Cuando es ejecutado, se ve cada impresora que aparece en el control de cuadro de lista.