FiveTech Software tech support forums

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 view

  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

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

Code: Select all  Expand view

   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

Surgom:

Intenta retirando el código

Code: Select all  Expand view

 SetPrintDefault( AllTrim( oApp:impremito ) )
 

Y modifica el código siguiente

Code: Select all  Expand view

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

Saludos

Gracias Armando el lunes lo implemento y comento

Luis

Armando funcionó correctamente. Nuevamente Gracias

Luis