SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jose Arriagada en Miércoles 5 de Noviembre de 2003, 00:13
-
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.
-
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.
-
muchas gracias.
voy a probar y te cuento