Caracteres especiales
 

Hola necesito imprimir caracteres especiales mediante una impresora de tickets
(ñ, º , ª , í , ... )

La forma en la que escribo es tratando la impresión como si fuese escribir en un fichero.

La impresora utilizada es una epson TM-U210.

¿Alguna sugerencia?

Gracias!!!!

Seguramente la impresora utilizará un juego de caracteres OEM, por eso te recomiendo probar la funcion CharToOem para traducir tu texto ANSI.

Saludos!

Funciona !!
 

Gracias, he probado a usar la función y funciona corectamente.

Por si alguien lo necesita aqui teneis una funcion para facilitar las cosas:

function ANSI2ASCII(AText:string):string;
const MaxLength = 255;
var PText : PChar;
begin
PText:=StrAlloc(MaxLength);
StrPCopy(PText,AText);
{$IFDEF WIN32}
CharToOEM(PText,PText); {32Bit}
{$ELSE}
AnsiToOEM(PText,PText); {16Bit}
{$ENDIF}
Result:=StrPas(PText);
StrDispose(PText);
end;



.....
var campo:string;
....
campo:= ANSI2ASCII(campo);
writeln(F,campo);
....


Saludos!!!!