Cómo obtener una lista de las impresoras en VB6

Parte de la programación de una aplicación de escritorio ofrece a los usuarios la capacidad de imprimir . Para que los usuarios imprimir un documento, es posible que desee enumerar todas las impresoras disponibles configuradas en el equipo . Esto le da a los usuarios la posibilidad de elegir dónde se puede imprimir el documento. Usted puede obtener una lista de las impresoras configuradas con el objeto Visual Basic ( VB ) "Impresora" . El objeto Printer mantiene una lista de impresoras , para que puedas recorrer y mostrar cada uno . Instrucciones
1

Crear una variable entera y asignarle el número total de las impresoras . Esto es necesario para que sepa cuántas veces en lazo del objeto Printer . El código para crear una variable VB es el siguiente: Dim i como Integeri = Printer.Count
2

Display " No hay impresoras configuradas " si el usuario no ha instalado dispositivos . 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 se han configurado las impresoras. El código siguiente anuncia al usuario que no hay impresoras instaladas : Si i = 0 ThenMsgBox " No hay impresoras instaladas " End If
3

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

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