IMPRESION CON TPRINTER EN EPSON TM-T20II
Posted: Fri Jan 18, 2019 5:21 am
Buenas noches
Tengo inconvenientes al imprimir en rollo en una impresora térmica; en mi laboratorio sale perfecto, pero donde el cliente no imprime correctamente.
nAnchoT=48 // en el caso de imp. termica, matricial =40
Imprime correctamente y bien presentado...pero cuando lo llevo al cliente;
- en un caso: Las lineas con el font oFntArial4 son las únicas legibles, el resto tipo pulga ilegible
- en otro caso: las letras salen correctamente, pero el ancho que se define en 48 (por ser térmica) se reduce a 42 truncando el final de las lineas
Los _ tienen la misma impresora que la que yo tengo, EPSON TM-T20II y están instaladas como tal con sus drivers (no Generic/Text)
Alguien sabe por que sucede esto?
Saludos
Att. Luis Ponce
Tengo inconvenientes al imprimir en rollo en una impresora térmica; en mi laboratorio sale perfecto, pero donde el cliente no imprime correctamente.
nAnchoT=48 // en el caso de imp. termica, matricial =40
Code: Select all
PRINT oPrnTicket NAME "Impresion" TO "TMT20II" // PREVIEW
IF Empty( oPrnTicket:hDC )
Return Nil
ELSE
oPrnTicket:SetSize(800, 5080) //(3.15"x2.54)x100 = 800.1 mm (20"*2.54)*100=5080 mm
oPrnTicket:SetPortrait()
ENDIF
DEFINE FONT oFntArial1 NAME "DRAFT 12CPI" SIZE 0, -8 OF oPrnTicket
DEFINE FONT oFntArial2 NAME "Arial" SIZE 0, -12 OF oPrnTicket
DEFINE FONT oFntArial3 NAME "Courier New" SIZE 0, -10 OF oPrnTicket
DEFINE FONT oFntArial4 NAME "Arial" SIZE 0, -12 BOLD OF oPrnTicket
PAGE
StepRow := oPrnTicket:nVertRes() / 130
StepCol := oPrnTicket:nHorzRes() / nAnchoT
oPrnTicket:Say( StepRow*nRow, StepCol*0, Repl("-",nAnchoT) )
nRow++
oPrnTicket:Say( StepRow*nRow, StepCol*11, TRIM(cDesDoc), oFntArial4) //,,,,2 )
nRow++
oPrnTicket:Say( StepRow*nRow, StepCol*0, PADC("ELECTRONICA",nAnchoT), oFntArial4) //,,,,2 )
nRow:=nRow+2
oPrnTicket:Say( StepRow*nRow, StepCol*0, PADR("Numero: "+cNro,nAnchoT) )
oPrnTicket:Say( StepRow*nRow, StepCol*0, PADL("Fecha: "+CFECHA(dFecAct,'E'),nAnchoT) )
nRow++
oPrnTicket:Say( StepRow*nRow, StepCol*0, Repl("-",nAnchoT) )
nRow++
oPrnTicket:Say( StepRow*nRow,StepCol*0, TRANS((AliasLq)->CANTIDAD,MA53)+" "+cItmUnd+" "+cItmDes )
oPrnTicket:Say( StepRow*nRow,StepCol*0, PADL(TRANS((AliasLq)->IMPORTE,MA72C),nAnchoT) )
nRow++
.....
.....
.....
ENDPAGE
ENDPRINT
- en un caso: Las lineas con el font oFntArial4 son las únicas legibles, el resto tipo pulga ilegible
- en otro caso: las letras salen correctamente, pero el ancho que se define en 48 (por ser térmica) se reduce a 42 truncando el final de las lineas
Los _ tienen la misma impresora que la que yo tengo, EPSON TM-T20II y están instaladas como tal con sus drivers (no Generic/Text)
Alguien sabe por que sucede esto?
Saludos
Att. Luis Ponce