TdosPrn Font

[jponce]

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

[Willi Quintana]

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

[LuisPonce]

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

[Willi Quintana]

Hola, prueba asi;

Code: Select all  Expand view

...
..
.
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)
.
..
..
 

[LuisPonce]

Gracias Willy

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

Saludos