FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TdosPrn Font
Posts: 199
Joined: Fri Apr 18, 2008 04:21 PM
TdosPrn Font
Posted: Sat May 05, 2012 04:16 PM

Hola a todos.

Despues de varios dias de batalla he logrado imprimir en COM1, en post anteriores agradezco la ayuda pues me fue de mucha utilididad, ahora me surge una nueva duda, como puedo hacer fonts mas grandes negritas, etc. con la clase TdosPRN.

Atentamente
Julio Ponce

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: TdosPrn Font
Posted: Sat May 05, 2012 08:53 PM
Hola
Fíjate el manual de la impresora epson, ( http://www.mabingenieros.com/cabalo/aseinf/epson_escp2.html ) alli están los códigos de impresion, ejem:
impresion en modo comprimido:
Realce de impresión
ASCII Dec. Hex. Descripción
SI 15 0F Selecciona modo comprimido

en TDosPrn

oPrn:Command("27","15") //activa el modo comprimido
oPrn:Say(nRow,0,"esta es una prueba"); nRow := nRow + 1
oPrn:Command("27","18") //desactiva el modo comprimido y vuelve al modo normal


oPrn:Command("27","47") //activa el modo negrita
oPrn:Say(nRow,0,"esta es una prueba"); nRow := nRow + 1
oPrn:Command("27","48") //desactiva el modo negrita
Posts: 196
Joined: Tue Jul 01, 2008 06:34 PM
Re: TdosPrn Font
Posted: Wed Aug 22, 2012 03:50 AM

Hola Willi

Veo que en esa oportunidad te referiste a los codigos de impresion para la TDOSPRN. Estoy con una ticketera TMU 220PA y necesito escribir en modo destacado el nombre comercial, use esos codigos de impresion, sin buenos resultados. Al parecer tampoco hace caso a {nCompress, nBold} es decir a las variables definidas en LOCAL.

Para no aburrir publico un pedazo del codigo, como lo vengo haciendo, o algo estoy haciendo mal.

LOCAL nCompress :=1,;
nPica :=2,;
nDouble :=3,;
nBold :=4,;
nItalic :=5,;
nRight :=1,;
nCenter :=2

      oPrnCmp:=TDosPrn():New("LPT1")
      oPrnCmp:Command( { 27, 64 } )   // Reset

       oPrnCmp:Command( { 27, 77 } ) // Cambio a Pica
       oPrnCmp:Say( nRow, 00, PADC(TRIM(cMiCom),40), {nCompress, nBold} )
          nRow++

        oPrnCmp:Command( { 27, 64 } ) // Vuelvo a reset

      oPrnCmp:Say( nRow, 00, PADC(TRIM(cMiName),40), {nCompress, nBold} )
          nRow++

      oPrnCmp:End()

Gracias por tu respuesta

Luis Ponce
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: TdosPrn Font
Posted: Thu Aug 23, 2012 04:14 AM
Hola, prueba asi;
Code (fw): Select all Collapse
...
..
.
If lNegrita                       // negrita
  oPrn:Command("27","71")
 Else
  oPrn:Command("27","72")
EndIf

If nTipoL = 1
  oPrn:Command("27","15") //12 full condensado
 Else
  oPrn:Command("27","18") //12 normal
EndIf

oPrn:Say(x, y, cDato)
.
..
..
Posts: 196
Joined: Tue Jul 01, 2008 06:34 PM
Re: TdosPrn Font
Posted: Sat Aug 25, 2012 03:14 PM

Gracias Willy

Esta forma de ingresar parametros con el oprn: Command(), es con la TDOSPRN Nativa, entonces probare con esa clase

Saludos

Luis Ponce

Continue the discussion