La Web del Programador: Comunidad de Programadores
 
    Pregunta:  11657 - IMPRESORA PREDETERMINADA
Autor:  Josemari Etxagibel
Hola amigos. Mi problema es el siguiente. A la hora de imprimir utilizo Crystal Reports, pero utilizo el CommonDialog para mostrar la impresora con la que imprimir. El caso es que me cambia la impresora predeterminada al seleccionar una de la lista. Utilizo PRINTER para volver a dejarla como estaba, pero aunque así me lo indica me deja como predeterminada la última seleccionada. ¿Cómo puedo hacer que deje las cosas como estaban en un principio?. Utilizo VB 6 y CR 4.6. Gracias por adelantado

  Respuesta:  Dardo Zorraindo
proba con el siguiente còdigo:

dim x as printer
x="Aca va el nombre de la impresora con la que queres imprimir" (que podes recuperarlo de un list, por ejemplo)
for each x in printer
If x.DeviceName="Aca va el nombre de una impresora" then
set printer=x
else
if x.DeviceName="Aca va el nombre de otra impresora" then
set printer=x
exit for
next

Espero que te sirva