FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
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
|
||||
|
||||
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 |
#5
|
|||
|
|||
Creo que la impresora citada tiene drivers para windows.
No sé si utilize la TM88 o TMT88 |
#6
|
|||
|
|||
Cita:
Cita:
Salu2 |
#7
|
|||
|
|||
Cita:
|
#8
|
||||
|
||||
Cita:
// Saludos |
#9
|
|||
|
|||
Gracias guillotmarc, probaré esas soluciones.
Cita:
Salu2 |
|
|
|