Imprimir Sem Acentos Em Matricial ,coluna Alinhada

[D31v1d1]

Bom Dia!

Gostaria de saber como eu imprimo em uma impressora matricial sem os acentos que o usuario coloca na nota fiscal? sei que existe uma rotina mais qual? e também uma outra ajuda de como imprimir 3 colunas sempre alinhadas como se fosse no gradpan do delphi? se algueim souber poste aqui

Agradeço desde já

abs

[D31v1d1]

function AnsiToAscii ( str: String ): String; 
var 
i: Integer; 
begin 
for i := 1 to Length ( str ) do 
case str[i] of
'á': str[i] := 'a'; 
'é': str[i] := 'e'; 
'í': str[i] := 'i'; 
'ó': str[i] := 'o'; 
'ú': str[i] := 'u'; 
'à': str[i] := 'a'; 
'è': str[i] := 'e'; 
'ì': str[i] := 'i'; 
'ò': str[i] := 'o'; 
'ù': str[i] := 'u'; 
'â': str[i] := 'a'; 
'ê': str[i] := 'e'; 
'î': str[i] := 'i'; 
'ô': str[i] := 'o'; 
'û': str[i] := 'u'; 
'ä': str[i] := 'a'; 
'ë': str[i] := 'e'; 
'ï': str[i] := 'i'; 
'ö': str[i] := 'o'; 
'ü': str[i] := 'u'; 
'ã': str[i] := 'a'; 
'õ': str[i] := 'o'; 
'não': str[i] := 'n'; 
'ç': str[i] := 'c'; 
'Á': str[i] := 'A'; 
'É': str[i] := 'E'; 
'Í': str[i] := 'I'; 
'Ó': str[i] := 'O'; 
'Ú': str[i] := 'U'; 
'À': str[i] := 'A'; 
'È': str[i] := 'E'; 
'Ì': str[i] := 'I'; 
'Ò': str[i] := 'O'; 
'Ù': str[i] := 'U'; 
'Â': str[i] := 'A'; 
'Ê': str[i] := 'E'; 
'Î': str[i] := 'I'; 
'Ô': str[i] := 'O'; 
'Û': str[i] := 'U'; 
'Ä': str[i] := 'A'; 
'Ë': str[i] := 'E'; 
'Ï': str[i] := 'I'; 
'Ö': str[i] := 'O'; 
'Ü': str[i] := 'U'; 
'Ã': str[i] := 'A'; 
'Õ': str[i] := 'O'; 
'não': str[i] := 'N'; 
'Ç': str[i] := 'C'; 
end; 
Result := str; 
end; 

bom eu estava procurando e encontrei a solução pra um de meus problemas e resolvi posta-lo aqui se algueim tiver o mesmo problema ta ai, mais ainda falta um se algueim souber de como imprimir 3 colunas alinhadas por favor poste aqui

vlw

abs