FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Imprimir en Rollo con TPRINTER
LuisPonce
Posts: 196
Joined: Tue Jul 01, 2008 06:34 PM
Imprimir en Rollo con TPRINTER
Posted: Fri Dec 28, 2018 05:22 AM

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

Luis Ponce
groiss
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Re: Imprimir en Rollo con TPRINTER
Posted: Fri Dec 28, 2018 06:48 AM
Buenos d铆as, Luis:
Yo lo hago as铆
Code (fw): Select all Collapse
          oprn:setpage(29)
              oprn:Setportrait()


Un saludo
LuisPonce
Posts: 196
Joined: Tue Jul 01, 2008 06:34 PM
Re: Imprimir en Rollo con TPRINTER
Posted: Fri Dec 28, 2018 03:09 PM
Buenos dias

Gracias Groiss por tu alcance

Hice las pruebas y sigue igual, hace el salto de pagina en el mismo lugar

Code (fw): Select all Collapse
 聽 聽 聽 聽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
Luis Ponce
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Imprimir en Rollo con TPRINTER
Posted: Sun Dec 30, 2018 02:43 PM
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 (fw): Select all Collapse
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.
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Busmatic_wpb
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
Re: Imprimir en Rollo con TPRINTER
Posted: Sun Dec 30, 2018 09:14 PM

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.

Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
LuisPonce
Posts: 196
Joined: Tue Jul 01, 2008 06:34 PM
Re: Imprimir en Rollo con TPRINTER
Posted: Wed Jan 02, 2019 05:29 AM
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/viewtopic.php?f=6&t=30612&p=175841&hilit=PrnSetSize#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 (fw): Select all Collapse
 聽PrnSetSize( nAnchPapel, nAltoPapel ) 

聽 PRINT oPrn NAME "Documento"



Gracias
Luis Ponce
jbrita
Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: Imprimir en Rollo con TPRINTER
Posted: Wed Jan 02, 2019 03:43 PM

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

russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: Imprimir en Rollo con TPRINTER
Posted: Wed Jan 02, 2019 04:04 PM

Buen d铆a..

Para corte de papel, tienes un ejemplo

Gracias
JONSSON RUSSI

acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Imprimir en Rollo con TPRINTER
Posted: Thu Jan 03, 2019 12:20 PM
Johson

La clase TPRINTER corta al finalizar la p谩gina con oPrn:endpage()

Lo hago asi:
Code (fw): Select all Collapse
       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.
Saludos,



Adhemar C.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions