Ver Mensaje Individual
  #2  
Antiguo 09-06-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.331
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Lo que yo he hecgo alguna vez, es cambiar la impresra por defecto antes de enviar la impresión y justo después volver a restaurar la que había.
No es una solución que me parezca muy "optima" y tengo claro que el algun caso puede dar problemas, pero es que no he encontrado otra.

Utilizando

Código Delphi [-]
  i := Printer.Printers.IndexOf('NombreDeTuImpresora');

Puede acceder dentro de la lista de impresoras al índice de la tuya.
Lugo guardar el valor de la actual y lo cambias:

Código Delphi [-]
      _Actual := Printer.PrinterIndex;
      // Asignarle la impresora 'NombreDeTuImpresora'
      Printer.PrinterIndex := i;

Una vez que hayas enciado la impresión restaura la que había.
Es bueno utilizar un try..Except para asegurarte de que restauras en cualquier caso la impresora por defecto.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita