Problema con codigos de escape

[jmb1963]

Hola,
por que no lo haces mas simple..

yo lo utilizo mas menos asi:

AssignFile(MyFile, iPtoImpVal ); // (Para la LPT1)
reset( MyFile );
rewrite(MyFile);

write(MyFile,Chr(27) + chr(64)); // resetea impresora;

write(MyFile, Chr(29)+ Chr(104)+ Chr(100)); // Altura barras
write(MyFile, sP1, Chr(29)+ Chr(119)+ Chr(2)); // Ancho codigo
write(MyFile, Chr(29)+ Chr(72)+ Chr(2)); // Posision codigo barras
write(MyFile, Chr(29)+ Chr(107)+ Chr(4)+ sEstacion + sNVale + Chr(0)); // Codigo
write(MyFile, Chr(27)+ Chr(97)+ Chr(0));


write(MyFile, Chr(27)+ Chr(33)+ Chr(16)); // Doble alto - On
write(MyFile, 'Total........: ' + Justifica( Picture(SoloNumeros(FloatToStr(iTotal),0)), 'D', 10 )+'.-');
write(MyFile, Chr(27)+ Chr(33)+ Chr(8)); // Doble alto - Off

// Pre-Corta vale
if ( sCortaBarra = '1' ) then
Incl( 1, sP1, chr(29)+chr(86)+ chr(49)); // Corta Papel

// Abre la Gabetera conectada a la impresora de Boletas
Incl( 0, sP1, Chr(27)+Chr(112)+'0'+'0'+'0' );


la funcion Incl(, .. es una funcion propia en la cual envio un estado para validar si salta o no de linea, el puerto sobre el cual imprimira.. y el resto de los caracteres son historia.. (comandos de impresion).

Espero que estos ejemplos te sirvan.

Saludos

Jose Miguel B.