Como asignar una impresora

[surGom]

Hola hasta hace poco en una rutina usabamos matriz de punto y la clase tdosprn para los remitos y la clase tprinter para facturar en impresoras laser.
Tuvimos que cambiar la forma de imprimir a tprinter. Para eso quiero asignar una impresora exclusiva para los remitos. Hice los siguiente:

Code: Select all | Expand

   SetPrintDefault( AllTrim( oApp:impremito ) )

   PRINT oPrn NAME "REMITO" ///PREVIEW

   oPrn:SetPage(10)
   oPrn:SetCopies(4)

 etc,etc

   PAGE

Y funciona correctamente pero el problema es que me setea la impresora como predeterminada. Como hago para que esta impresora se utilize exclusivamente en esta rutina.

Gracias por vuestra atención

[surGom]

Perdón por no seguir el hilo en el otro mensaje, pensé en hacer otro

Code: Select all | Expand

   SetPrintDefault( AllTrim( oApp:impremito ) )

   PRINT oPrn NAME "REMITO" ///PREVIEW

   oPrn:SetPage(10)
   oPrn:SetCopies(4)


   PAGE


   oPrn:Cmsay(   2.1, 13.4, ( AllTrim(Transform(dfec,"@D" ) ) ), oFont,, RGB( 11,41,90 ) )


   oPrn:CmSay(  7, 3.2,    AllTrim( acliente:napea ), oFont,, RGB( 0,0,0 ) )
   etc, etc



   ENDPAGE

 ENDPRINT

 

y después del endprint hacer otro SetPrintDefault( AllTrim( oApp:impdefecto ) )

Quería saber vuestra opinión o si hay otra forma mas elegante de hacerlo

Luis

[Armando]

Surgom:

Intenta retirando el código

Code: Select all | Expand

 SetPrintDefault( AllTrim( oApp:impremito ) )
 

Y modifica el código siguiente

Code: Select all | Expand

PRINT oPrn NAME "REMITO" TO "El nombre de la impresora deseada"
 

Saludos

[surGom]

Gracias Armando el lunes lo implemento y comento

Luis

[surGom]

Armando funcionó correctamente. Nuevamente Gracias

Luis