La Web del Programador: Comunidad de Programadores
 
    Pregunta:  11511 - PROBLEMA AL CAMBIAR LA IMPRESORA PRDETERMINADA
Autor:  Dardo Zorraindo
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

  Respuesta:  Jesus Lopez
Checa esta direccion es un rollo

http://vbnet.mvps.org/index.html?code/system/defaultprinter.htm

  Respuesta:  Adriana Samaniego Gómez
Hola:
Yo hago el cambio de impresora utilizando APIS, tengo una forma donde me muestra todas las impresoras que tengo declaradas y selecciono en cual quiero imprimir, escribeme para enviarte el código que utilizo.

Saludos