Imprimir en Rollo con TPRINTER

[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

[groiss]

Buenos días, Luis:
Yo lo hago así

Code: Select all  Expand view

          oprn:setpage(29)
              oprn:Setportrait()
 

Un saludo

[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  Expand view

       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

[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  Expand view

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.

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

[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/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

 PrnSetSize( nAnchPapel, nAltoPapel )

  PRINT oPrn NAME "Documento"
 

Gracias

[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

[russimicro]

Buen día..

Para corte de papel, tienes un ejemplo

Gracias
JONSSON RUSSI

[acuellar]

Johson

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

Lo hago asi:

Code: Select all  Expand view

       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.