FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Comandos para Epson TM-U220B
Hola, necesito imprimir unos ticket mediante una Epson TM-U220B. Se que se utilizan los camandos de API Escape, he conseguido algunos de ellos, pero no consigo imprimir nada más que guarrería. ¿Qué debo de hacer para que salgan los caracteres que yo quiero imprimir? ¿Cómo se activa el corte de la cuchilla? ¿Qué comando tengo que emplear para que habra un caján portamonedas?
Espero que me podais ayudar. Gracias. |
#2
|
|||
|
|||
Un ejemplo de impresión con ficheros de texto
Código:
procedure TForm1.ImprimirClick(Sender: TObject); var F : TextFile; i, j : integer; temp : string; begin AssignFile(F, 'c:\lolo.txt'); Rewrite(F); // Ponemos título de las columnas temp := 'Columna1 Columna2 Columna3 Columna4 Columna5'; Writeln(F, temp); for i := 0 to ListView1.Items.Count - 1 do begin temp := ListView1.Items[i].Caption; for j := 0 to ListView1.Items[i].SubItems.Count - 1 do temp := temp + ' ' + ListView1.Items[i].SubItems[j]; Writeln(F, temp); end; CloseFile(F); end; Otro ejemplo con Canvas Código:
procedure TForm1.ImprimirCanvasClick(Sender: TObject); var y, i, j : integer; temp : string; begin Printer.BeginDoc; With Printer.canvas do Begin Printer.Title := 'El titulo del documento que quiero'; Font.Name := 'MS Sans Serif'; Font.Color := ClBlack; Pen.Color := ClBlack; Font.Size := 12; Font.Name := 'Times New Roman'; Font.Size := 12; // imprimimos ListView temp := 'Titulo que sale escrito en el papel'; y := 100; TextOut(10, y, temp); for i := 0 to ListView1.Items.Count - 1 do begin inc(y, 20); temp := ListView1.Items[i].Caption; for j := 0 to ListView1.Items[i].SubItems.Count - 1 do temp := temp + ' ' + ListView1.Items[i].SubItems[j]; TextOut(10, y, temp); end; end; Printer.EndDoc; end; Código:
procedure AbrirCajon; var f : TextFile; begin AssignFile(f,'lpt1'); try Rewrite(f); Writeln(f,#27+'p0'+#100+#0); finally CloseFile(f); end; end; |
#3
|
||||
|
||||
Prueba a descargarte de la web de Epson, el manual con los códigos de escape para las impresoras TM
https://www.epson-pos.com/cgi-bin/sd...sp?sel_lang=es Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#4
|
|||
|
|||
Gracias Cedetill
Muchas Gracias Cadetill, tu respuesta me ha ayudado mucho y ya consigo controlar la impresora.
Por si te hace falta a ti o a alguien, he conseguido los comandos Escape para controlar las impresoras Epson TM de la serie U200. Para activar el corte esPor si algún día lo necesitas). Write (f, #29+'V'+#66+#20); Un saludo. |
|
|
|