Impresión directa en puerto COM

[altp]

Hola a todos.

Tengo un problema al imprimir en una impresora Epson TMU210, con puerto serie.
Imprimo directamente como si fuera una impresora LPT y me salen caracteres raros.

E mirado en los foros pero no e encontrado nada, aunque me suena que una vez leí algo, pero no lo encuentro, si pudieran ayudarme se lo agradecería.

Muchas gracias.

Saludos.

[__cadetill]

prueba a inicializar la impresora con los #27#64

[altp]

Gracias Cadetill por responder.

Eso lo tengo puesto, eso sí, al final.
Te envío el código por si ves algo y por si le puede interesar a alguien (es el código de COMBAT-F2D:

var
Impresora : TextFile;
begin
AssignFile(Impresora, 'COM1');
Rewrite(Impresora);
Writeln(Impresora, chr(27)+ chr(64) + chr(27)+ 'r' + chr(1));

Writeln(Impresora, chr(27)+ '!' + chr(0) + chr(27)+ 'r' + chr(0));

Writeln(Impresora, '*****************************************');
Writeln(Impresora, Conf.FieldByName('CAB1').AsString);
Writeln(Impresora, '*****************************************');
Writeln(Impresora, Conf.FieldByName('CAB2').AsString);
Writeln(Impresora, '');
Writeln(Impresora, Conf.FieldByName('CAB3').AsString);
Writeln(Impresora, Conf.FieldByName('CAB4').AsString);
Writeln(Impresora, Conf.FieldByName('CAB5').AsString);
Writeln(Impresora, '');
Writeln(Impresora, Query.FieldByName('FECHA').AsString + ' ' + FormatDateTime('hh:mm', Now) + ' Ticket ' + IntToStr(Numero));
Writeln(Impresora, '');
Writeln(Impresora, '*****************************************');
Writeln(Impresora, Query.FieldByName('NOMBRE').AsString);
Writeln(Impresora, Query.FieldByName('DESCRIPCION').AsString);
Writeln(Impresora, '*****************************************');
Writeln(Impresora, '');
Writeln(Impresora, FormatFloat('Importe 0,.00', Query.FieldByName('PRECIO').AsFloat) + ' - IVA Incluido');
Writeln(Impresora, '-----------------------------------------');
Writeln(Impresora, Conf.FieldByName('PIE1').AsString);
Writeln(Impresora, Conf.FieldByName('PIE2').AsString);
Writeln(Impresora, Conf.FieldByName('PIE3').AsString);
Writeln(Impresora, Conf.FieldByName('PIE4').AsString);
Writeln(Impresora, '-----------------------------------------');
Writeln(Impresora, Conf.FieldByName('PIE5').AsString);
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, '');
Writeln(Impresora, #27#105);

[B] Writeln(Impresora, chr(27)+ chr(64)); // inicializo impresora[/b] CloseFile(Impresora);


Gracias por la ayuda

[__cadetill]

pero te funciona o no?? de todas maneras, te aconsejo de inicializar siempre la impresora antes de imprimir, no después de hacerlo (no tiene sentido entonces)

[altp]

Perdona Cadetill, no lo he probado porque ahora no tengo la impresora, la tiene el cliente.

Si puedo mañana te respondo a ver si me funcionó.
Pondré primero la inicialización, lo pondre debajo de Rewrite(Impresora);

Gracias por responder, ya te comentaré.

[Combat-F2D]

con permiso de cadetill, si no te va, mandame un privado y te envio el codigo necesario para hacerla furular; he trabajado con ese tipo de impresoras;
revisa mis post pues creo que algo se ha tocado, no obstante si tienes dudas o similar, aqui me tienes

los problemas los tandras seguramnete en caracteres de los piratillas, es decir, ñ y similares