Programación General > Visual Basic 6.0 e inferiores

 Re: Seleccionar impresora

(1/1)

Jose Arriagada:
Hola amigos:

Mi problema es el siguiente:

Tengo una aplicacion que trabaja en red, hecha en VB60 y SQL 7.0, y tengo 4 computadores conectados cada uno a una impresora por el puerto LPT1.
Todos los equipos tienen cargada las 4 impresoras.

Mi aplicacion en una parte, debe imprimir 4 tipo de formularios diferentes (que son los que estan en cada impresora).

Existe alguna forma de enviar a imprimir el reporte1 a la impresora 1, el formulario 2 a la impresora 2, y asi sucesivamente, sin tener que ir al panel de control y establecer la impresora predefinida, si no que por codigo en el VB6.0 se seleccione en forma automatica?

Gracias por la ayuda.

Brroz:
Hola Jose.

Fijate en este ejemplo. Enumera el nombre de las impresoras confiuguradas y asigna al objeto printer la última de ellas.

Dim int1 as integer
For int1 = 0 To Printers.Count - 1
       MsgBox Printers(int1).DeviceName
Next int1
Set Printer = Printers(int1-1).DeviceName

A ver si esto te sirve.
Chao.

Jose Arriagada:
muchas gracias.

voy a probar y te cuento

Navegación

[0] Índice de Mensajes