FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Secuencia de Escape en Epson TM88III
Hola a todos!
Estoy de nuevo por acá, con otro nick eso sí. Remitiendome al problema descargué de la page de la epson el faq de las secuencias de escapes de la Epson TM88III y tengo problemas para entender algunas especificaciones de él y ademas de adaptar el código que esta en basic: Código:
PRINT #1, CHR$(&H1B);"@"; 'Initializes the printer (ESC @) PRINT #1, CHR$(&H1B);"a";CHR$(1);'Specifies a centered printing position '(ESC a) PRINT #1, CHR$(&H1B);"!";CHR$(0); 'Specifies font A (ESC !) PRINT #1, "January 14, 2002 15:00"; PRINT #1, CHR$(&H1B);"d";CHR$(3); 'Prints and 3 line feeding (ESC d) PRINT #1, CHR$(&H1B);"a";CHR$(0); 'Selects the left print position (ESC a) PRINT #1, CHR$(&H1B);"!";CHR$(1); 'Selects font B PRINT #1, "TM-U210B $20.00";CHR$(&HA); PRINT #1, "TM-U210D $21.00";CHR$(&HA); PRINT #1, "PS-170 $17.00";CHR$(&HA); PRINT #1, CHR$(&HA); 'Line feeding (LF) PRINT #1, CHR$(&H1B);"!";CHR$(17); 'Selects double-height mode PRINT #1, "TOTAL $58.00"; CHR$(&HA); PRINT #1, CHR$(&H1B);"!";CHR$(0); 'Cancels double-height mode PRINT #1, "------------------------------";CHR$(&HA); PRINT #1, "PAID $60.00";CHR$(&HA); PRINT #1, "CHANGE $ 2.00";CHR$(&HA); PRINT #1, CHR$(&H1D);"V";CHR$(66);CHR$(0); 'Feeds paper & cut ?Drawer Kick (ESC p) PRINT #1, CHR$(&H1B); CHR$(&H70); CHR$(&H0); CHR$(60); CHR$(120); Código:
PRINT #1, CHR$(&H1B);"a";CHR$(1); Esto no me resulta: Código:
PRINT #1, CHR$(&H1B);"a";CHR$(1); PRINT #1, CHR$(&H1B);"!";CHR$(0); 'Specifies font A (ESC !) PRINT #1, "January 14, 2002 15:00"; Código:
Writeln ( f, #27 + 'a' + #49 ); Writeln (f, #27 + '!' + #48 ); Writeln (f, "January 14, 2002 15:00" ); Después, intento convertir: Código:
PRINT #1, CHR$(&H1B);"d";CHR$(3); Código:
Writeln ( f, #27 + 'd' + #50); Código:
Así que debería ser algo así : Código:
Writeln ( f, #29 + #107 + '4' + '12345678' ); si alguien se apiade y me expliqué lo que estoy haciendo mal. Gracias |
#2
|
||||
|
||||
Hola.
En Basic, &H significa que el numero a continuación está en decimal. Por lo que CHR$(&H1B); equivale a CHR$(27); (1B es 27 en Hexadecimal). Dicho esto, la línea Código:
PRINT #1, CHR$(&H1B);"a";CHR$(1); Código:
Writeln ( f, #27 + 'a' + #1 ); Espero que estas indicaciones, te ayuden a traducir el código VB. En lo que respecta al Código Barras, la verdad es que tampoco entiendo la notación en que viene. Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#3
|
||||
|
||||
Aunque en el código de barras, parece haber olvidado un 0 al final. Y m lo enviaría como nº y no como el ASCII del nº. Lo que no sé es si también es necesario para los nº que forman el código.
O sea, en lugar de : Writeln ( f, #29 + #107 + '4' + '12345678' ); Probaría : Writeln ( f, #29 + #107 + #4 + '12345678' + #0 ); O también (si no funciona) : Writeln ( f, #29 + #107 + #4 + #1 + #2 + #3 + #4 + #5 + #6 + #7 + #8 + #0 ); Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#4
|
||||
|
||||
Cita:
// Saludos |
#5
|
|||
|
|||
Gracias guillotmarc, probaré esas soluciones.
Cita:
Salu2 |
#6
|
||||
|
||||
solo añadir, que me parece que es posible no tener que convertir los valores hexadecimales a decimales... ya que también debiera valerse un #$1B por ejemplo, en lugar de #27... no tengo delphi a mano, para probarlo, pero debiera funcionar y podria eviatar la conversión.
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#7
|
|||
|
|||
Creo que la impresora citada tiene drivers para windows.
No sé si utilize la TM88 o TMT88 |
#8
|
|||
|
|||
Cita:
Cita:
Salu2 |
#9
|
|||
|
|||
Cita:
|
#10
|
|||
|
|||
Hola, Julià T.
Cita:
|
#11
|
|||
|
|||
Puede hacer una prueba sencilla para ver si funciona en esta impresora
Asignas como impresora predeterminada la epson tm88iii (para que salgan los tipos de fuentes própios de esta impresora) Abres el wordpad, escribes texto y en algún sitio colocas el texto con la fuente control. Le das a imprimir y compruebas el resultado. En esta impresora no lo probé nunca de hacerlo así, ya que utilizé para esta impresora el TRichEdit, el Qreport, y el Rave, con lo que me ahorré un montón de código Tan solo añadir que lo afecta sorprendentemente a esta impresora es la combinación de fuente y tamaño a la hora de imprimir |
#12
|
|||
|
|||
por cierto el Rave (el reporteador que viene por defecto en elphi 7) tiene para imprimir códigos de barra
|
#13
|
|||
|
|||
Bueno gracias a todos por tratar de ayudar :-)
lo sulucioné de la sgte. manera para el código de barra: Código:
Writeln ( lst, #$1B + '@' ); Write ( lst, #$1D + 'h' + #$40 ); // Setea el alto Write ( lst, #$1D + 'w' + #$2 ); // Setea el tamaño del ancho a 5 Write ( lst, #$1D + 'H' + #$2 ); // Seleccion la posición a imprimir // codigo de barrras CODE39 -> ese es el tipo #$4 Write ( lst, #$1D + 'k' + #$4 ); // Imprime codigo de barras Write ( lst, '1234567890123' + #$0 ); // siempre acaba con nulo Write ( lst, #$A ); // limpia la justificación |
#14
|
|||
|
|||
Anda ya
La fuente de 'control' no aparece bajo ningún concepto, pongas la impresora como predeterminada o como si la pones sin conexión. Así que la única forma es programando porque si no no hay manera.
|
#15
|
|||
|
|||
Cita:
|
#16
|
|||
|
|||
Necesito ayuda urgente!!!!!!!!!!!!!
Tengo el mismo problema que tuviste tu hace 3 años. Yo estoy intentando dominar la impresora EPSON TM-L-60II, y no lo consigo. He visto este hilo y parece que puede ayudarme aunque no lo he probado. Trabajo con Delphi 4 y he probado el codigo que a ti te sirvio como solucion y nada. Espero que podais ayudarme por que de verdad que ya no se que hacer.
|
#17
|
|||
|
|||
Se me olvidó decir que yo intento imprimir un codigo de barras del tipo EAN13.
|
#18
|
|||
|
|||
Este es el codigo que utilizo para imprimir el codigo de barras
|
#19
|
|||
|
|||
Ya lo he consegido!
|
#20
|
|||
|
|||
Woow, Probare haber si me funciona. Saludos
__________________
Da conocimiento a los que no saben. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|