• Lunes 23 de Diciembre de 2024, 01:01

Autor Tema:  Re: Seleccionar impresora  (Leído 1573 veces)

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Seleccionar impresora
« en: Miércoles 5 de Noviembre de 2003, 00:13 »
0
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

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Seleccionar impresora
« Respuesta #1 en: Miércoles 5 de Noviembre de 2003, 09:02 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Seleccionar impresora
« Respuesta #2 en: Jueves 6 de Noviembre de 2003, 14:15 »
0
muchas gracias.

voy a probar y te cuento