Problema al cambiar la impresora prdeterminada
Publicado por Dardo Zorraindo (4 intervenciones) el 22/04/2001 21:57:07
Tengo dos impresoras en el sistema: “Epson LX-300” y “Office Jet R Series”
Busco cambiar la impresora con el siguiente código:
Dim x as Printer
For Each x In Printers
If x.DeviceName = "Nombre Impresora" Then
Set Printer = x
End If
Next x
Por algún motivo que desconozco no funciona y he notado que la propiedad “DeviceName” siempre recupera el nombre de la misma impresora, en consecuencia cuando quiero imprimir con la “Office Jet R Series” logro que la aplicación use esta impresora, pero cuando quiero volver a imprimir con la “Epson LX-300” ya no cambia de impresora.
Alguien podría indicarme cual es la solución al problema.
Muchas gracias
Busco cambiar la impresora con el siguiente código:
Dim x as Printer
For Each x In Printers
If x.DeviceName = "Nombre Impresora" Then
Set Printer = x
End If
Next x
Por algún motivo que desconozco no funciona y he notado que la propiedad “DeviceName” siempre recupera el nombre de la misma impresora, en consecuencia cuando quiero imprimir con la “Office Jet R Series” logro que la aplicación use esta impresora, pero cuando quiero volver a imprimir con la “Epson LX-300” ya no cambia de impresora.
Alguien podría indicarme cual es la solución al problema.
Muchas gracias
Valora esta pregunta
0