Page 1 of 1
Imprimir en Rollo con TPRINTER
Posted: Fri Dec 28, 2018 5:22 am
by LuisPonce
Buenas noches
Necesito imprimir en rollo térmico, lo venia haciendo con la TDOSPRN sin problemas pero ahora toca incluir un código QR (facturación electrónica) esto me obliga a cambiar a TPRINTER; la TDOSPRN no tenia limite en cuanto al tamaño del documento pero no imprime el code.bmp del QR
Por esa razón me veo obligado a usar la TPRINTER pero la impresión se trunca al completar el largo de una pagina A4 o Letter y tengo tickets de mas de 150 items.
Alguien sabe como imprimir en rollo térmico y que me permita adicionar el QR sin limite de tamaño?
Gracias
Atentamente,
Luis Ponce
Re: Imprimir en Rollo con TPRINTER
Posted: Fri Dec 28, 2018 6:48 am
by groiss
Buenos días, Luis:
Yo lo hago así
Code: Select all
oprn:setpage(29)
oprn:Setportrait()
Un saludo
Re: Imprimir en Rollo con TPRINTER
Posted: Fri Dec 28, 2018 3:09 pm
by LuisPonce
Buenos dias
Gracias Groiss por tu alcance
Hice las pruebas y sigue igual, hace el salto de pagina en el mismo lugar
Code: Select all
PRINT oPrnCmp NAME "Impresion" TO "TERMICA"
IF Empty( oPrnCmp:hDC )
Return Nil
ELSE
oPrnCmp:SetPage(29)
oPrnCmp:SetPortrait()
ENDIF
PAGE
StepRow := oPrnCmp:nVertRes() / 66
StepCol := oPrnCmp:nHorzRes() / nAnchoT
oPrnCmp:Say( StepRow*nRow,0, PADC(cTexto,nAnchoT) )
nRow++
...
...
ENDPAGE
ENDPRINT
El tema tal vez vaya por la configuración de la impresora, es una EPSON T20II
Re: Imprimir en Rollo con TPRINTER
Posted: Sun Dec 30, 2018 2:43 pm
by FranciscoA
Hola Luis.
Cuando codifiqué mi primer programa de facturacion (ayer? je-je) lo hice asi:
No recuerdo de donde tomé los 48.10
Fue para una impresora Epson TM -200 (creo)
Code: Select all
nLineas:=lastrec()+44 //44 lineas fijas (headers, footers, etc)
PrnSetSize( 1000, nLineas*48.10)
PRINT oPrn NAME "Factura" //PREVIEW //FROM USER
oPrn:SetPortrait()
DEFINE FONT oFont NAME "Arial" SIZE 0, -09 OF oPrn //08
nRowStep := oPrn:nVertRes() / nLineas // LINEAS
nColStep := oPrn:nHorzRes() / 40 // COLUMNAS
//GENERICA (SOLO/TEXTO)
Saludos.
Re: Imprimir en Rollo con TPRINTER
Posted: Sun Dec 30, 2018 9:14 pm
by Busmatic_wpb
Saludes Listeros.
Mira compadre no todo el tiempo se debe de tocar esta opcion pero esta impresora la T20II a mi me toco definirle el tamaño del rollo de papel cuando le dices que es de 80 por XXX mm de largo esta define que esta utilizando un papel continuo.
Fue lo unico que se me ocurrio y al final pudo imprimier hasta 5 pies de pepel y me respeta los corte cuando los mando. Creo que te ayudara un poco a esta situacion. Ademas
a la hora imprimir el QR tiene sus limites e inclusive la cantidad de inmformacion. Si el tamano cuadrado (ancho por alto) es mucho mayor a la cantidad de informacion y el tamaño es muy grande posiblemente el lector 2D no te lea el QR impreso.
Suerte.
Re: Imprimir en Rollo con TPRINTER
Posted: Wed Jan 02, 2019 5:29 am
by LuisPonce
Bueno primero
FELIZ AÑO 2019
Que todos lo proyectos en ejecución y los nuevos por venir leguen a buen puerto con éxito, ...y que nuestros sistemas Funcionen a la Perfección!!!
Gracias amigos por sus respuestas, encontré a solución a pulso en base a tu aporte, Francisco:
http://forums.fivetechsupport.com/viewt ... ze#p175835
Me dio las luces he hice el calculo a las pulgadas que necesitaba.
Un detalle que el PrnSetSize() va antes de la creación del objeto TPRINT
Code: Select all
PrnSetSize( nAnchPapel, nAltoPapel )
PRINT oPrn NAME "Documento"
Gracias
Re: Imprimir en Rollo con TPRINTER
Posted: Wed Jan 02, 2019 3:43 pm
by jbrita
Hola amigo, yo trabajo con la epson TM-T20II, y solo le agregue en la configuracion de la impresora otro papel 80 x 3276 Y LISTO
saludos
Re: Imprimir en Rollo con TPRINTER
Posted: Wed Jan 02, 2019 4:04 pm
by russimicro
Buen día..
Para corte de papel, tienes un ejemplo
Gracias
JONSSON RUSSI
Re: Imprimir en Rollo con TPRINTER
Posted: Thu Jan 03, 2019 12:20 pm
by acuellar
Johson
La clase TPRINTER corta al finalizar la página con oPrn:endpage()
Lo hago asi:
Code: Select all
PRINT oPrn NAME "FACTURA" TO "EPSON TM-U220" //PREVIEW MODAL //"EPSON TM-T88"
DEFINE FONT oFont1 NAME "FontA11" OF oPrn //Font texto
nMargin:= 0 ;nRow:= oPrn:nVertRes()/55;nCol:= oPrn:nHorzRes() / 45
oPrn:SETPAGE(29) //1 Letter 5 Legal 29 Rollo continuo
oPrn:startpage()
.......
oPrn:endpage()
ENDPrint
Y funciona perfecto.