FiveTech Support Forums

Hola, necesito imprimir con la clase tPrinter en Rollos de 80mm x 80mts de largo, ya cambie en propiedades de impresora a Rollo pero no lo he conseguido, siempre corta en tamaño carta, tal vez sea la clase que tengo:

#define DMPAPER_LETTER 1 // Letter 8 1/2 x 11 in #define DMPAPER_LETTERSMALL 2 // Letter Small 8 1/2 x 11 in #define DMPAPER_TABLOID 3 // Tabloid 11 x 17 in #define DMPAPER_LEDGER 4 // Ledger 17 x 11 in #define DMPAPER_LEGAL 5 // Legal 8 1/2 x 14 in #define DMPAPER_STATEMENT 6 // Statement 5 1/2 x 8 1/2 in #define DMPAPER_EXECUTIVE 7 // Executive 7 1/4 x 10 1/2 in #define DMPAPER_A3 8 // A3 297 x 420 mm #define DMPAPER_A4 9 // A4 210 x 297 mm #define DMPAPER_A4SMALL 10 // A4 Small 210 x 297 mm #define DMPAPER_A5 11 // A5 148 x 210 mm #define DMPAPER_B4 12 // B4 250 x 354 #define DMPAPER_B5 13 // B5 182 x 257 mm #define DMPAPER_FOLIO 14 // Folio 8 1/2 x 13 in #define DMPAPER_QUARTO 15 // Quarto 215 x 275 mm #define DMPAPER_10X14 16 // 10x14 in #define DMPAPER_11X17 17 // 11x17 in #define DMPAPER_NOTE 18 // Note 8 1/2 x 11 in #define DMPAPER_ENV_9 19 // Envelope #9 3 7/8 x 8 7/8 #define DMPAPER_ENV_10 20 // Envelope #10 4 1/8 x 9 1/2 #define DMPAPER_ENV_11 21 // Envelope #11 4 1/2 x 10 3/8 #define DMPAPER_ENV_12 22 // Envelope #12 4 \276 x 11 #define DMPAPER_ENV_14 23 // Envelope #14 5 x 11 1/2 #define DMPAPER_CSHEET 24 // C size sheet #define DMPAPER_DSHEET 25 // D size sheet #define DMPAPER_ESHEET 26 // E size sheet #define DMPAPER_ENV_DL 27 // Envelope DL 110 x 220mm #define DMPAPER_ENV_C5 28 // Envelope C5 162 x 229 mm #define DMPAPER_ENV_C3 29 // Envelope C3 324 x 458 mm #define DMPAPER_ENV_C4 30 // Envelope C4 229 x 324 mm #define DMPAPER_ENV_C6 31 // Envelope C6 114 x 162 mm #define DMPAPER_ENV_C65 32 // Envelope C65 114 x 229 mm #define DMPAPER_ENV_B4 33 // Envelope B4 250 x 353 mm #define DMPAPER_ENV_B5 34 // Envelope B5 176 x 250 mm #define DMPAPER_ENV_B6 35 // Envelope B6 176 x 125 mm #define DMPAPER_ENV_ITALY 36 // Envelope 110 x 230 mm #define DMPAPER_ENV_MONARCH 37 // Envelope Monarch 3.875 x 7.5 in #define DMPAPER_ENV_PERSONAL 38 // 6 3/4 Envelope 3 5/8 x 6 1/2 in #define DMPAPER_FANFOLD_US 39 // US Std Fanfold 14 7/8 x 11 in #define DMPAPER_FANFOLD_STD_GERMAN 40 // German Std Fanfold 8 1/2 x 12 in #define DMPAPER_FANFOLD_LGL_GERMAN 41 // German Legal Fanfold 8 1/2 x 13 in

lo mas que he podido hacer es que imprima tamaño ficio pero no es suficiente. donde puedo bajar una clase mas nueva, en el foro ya busqué e intenté las soluciones pero no he tenido éxito. Gracias por su ayuda.

Yo uso sin problemas la clase tprinter para imprimir en impresoras de rollo.
En la configuracion de la impresora utilizo el modelo te ticket mas largo

Luego no defino un tipo de papel, sino que simplemente selecciono esa impresora para enviar el reporte.

PRINT oPrn TO ALLTRIM(cImpresoraT) /* Donde cImpresoraT es el nombre de la impresora de Tickets tal cual está en Windows*/
           PAGE                                  

                     @ 0,1.5 PRINT TO oPrn IMAGE "logo.jpg" SIZE 5, 2 CM LASTROW nRow
                         @ nRow, .1 PRINT TO oPrn TEXT ALLTRIM(oApp:nomb_emp) ;
                                  SIZE 7.1,.5 CM FONT oFont1 ALIGN "C" LASTROW nRow
                         @ nRow, .1 PRINT TO oPrn TEXT ALLTRIM(cDomicilioFiscal) ;
                                  SIZE 7.1,.5 CM FONT oFont LASTROW nRow ALIGN "C"    

                         @ nRow, .1 PRINT TO oPrn TEXT ALLTRIM(aiva[oApp:tipo_iva]) ;
                                  SIZE 7.1,.5 CM FONT oFont LASTROW nRow ALIGN "C"
                     .... // Todo el resto del codigo
           ENDPAGE
ENDPRINT

Espero te sirva

Buen dia...

Podriamos pedirte el favor que nos genere la funcion completa de forma basica, para impresion directa a la impresora o para generar UN pdf..

Anexo el prototipo basico:

Nota : definir el font para el tamaño tipo rollo y que se pueda usar con impresoras de diferentes marcas

Gracias

Saludos

JONSSON RUSSI

FUNCTION PRUEBA_PRINTER()

LOCAL nRow := 1
LOCAL cImpresoraT := "POSPrinter POS-80C"

PRINT oPrn FILE "E:\TEMP\MIPDF.PDF" // TO ALLTRIM(cImpresoraT)

Code: Select all Collapse

    define font oFont name "New Roman" size 0, -04 of oPrn

       PAGE
                
        FOR nRow := 1 TO 300

             @ nRow, .1 PRINT TO oPrn TEXT STR(nRow,3) ;
                              SIZE 7.1,.5 CM FONT oFont ALIGN "C" LASTROW nRow

        NEXT

       ENDPAGE

ENDPRINT

RETURN

Perdon por la tardanza de la respuesta. Lo que te pase yo lo uso para cualquier impresora de ticket de 80 mm para impresion directa. Ahora para hacer un formato ticket en pdf no lo he hecho nunca.