Imprimir en Rollo con TPRINTER

Imprimir en Rollo con TPRINTER

Postby LuisPonce » Fri Dec 28, 2018 5: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
User avatar
LuisPonce
 
Posts: 195
Joined: Tue Jul 01, 2008 6:34 pm
Location: PERU

Re: Imprimir en Rollo con TPRINTER

Postby groiss » Fri Dec 28, 2018 6:48 am

Buenos días, Luis:
Yo lo hago así
Code: Select all  Expand view  RUN

          oprn:setpage(29)
              oprn:Setportrait()
 


Un saludo
groiss
 
Posts: 225
Joined: Tue Sep 01, 2009 7:55 am
Location: Plasencia - ESPAÑA

Re: Imprimir en Rollo con TPRINTER

Postby LuisPonce » Fri Dec 28, 2018 3: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: Select all  Expand view  RUN
       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
User avatar
LuisPonce
 
Posts: 195
Joined: Tue Jul 01, 2008 6:34 pm
Location: PERU

Re: Imprimir en Rollo con TPRINTER

Postby FranciscoA » Sun Dec 30, 2018 2: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: Select all  Expand view  RUN
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
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Imprimir en Rollo con TPRINTER

Postby Busmatic_wpb » Sun Dec 30, 2018 9: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
User avatar
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: Imprimir en Rollo con TPRINTER

Postby LuisPonce » Wed Jan 02, 2019 5: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: Select all  Expand view  RUN
 PrnSetSize( nAnchPapel, nAltoPapel )

  PRINT oPrn NAME "Documento"
 



Gracias
Luis Ponce
User avatar
LuisPonce
 
Posts: 195
Joined: Tue Jul 01, 2008 6:34 pm
Location: PERU

Re: Imprimir en Rollo con TPRINTER

Postby jbrita » Wed Jan 02, 2019 3: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
jbrita
 
Posts: 502
Joined: Mon Jan 16, 2006 3:42 pm

Re: Imprimir en Rollo con TPRINTER

Postby russimicro » Wed Jan 02, 2019 4:04 pm

Buen día..

Para corte de papel, tienes un ejemplo

Gracias
JONSSON RUSSI
russimicro
 
Posts: 261
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: Imprimir en Rollo con TPRINTER

Postby acuellar » Thu Jan 03, 2019 12:20 pm

Johson

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

Lo hago asi:
Code: Select all  Expand view  RUN

       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.
User avatar
acuellar
 
Posts: 1644
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 44 guests