Problemas com a quantidade de linhas em mini-impressora
Prezados colegas,
Estou com o seguinte problema: fiz um sistema que irá imprimir um cupom não fiscal, usando uma mini-impressora EPSON TM-U200D (40 colunas) e quando mando imprimir só imprime corretamente 46/47 linhas e começa a imprimir caracteres estranhos.
Já tentei com o driver correto da impressora, já tentei com o driver genérico/somente texto, tentei todas a configurações possívels de papel da impressora e este problema persiste. (na programação estou usando o sistema operacional XP, mas o sistema vai rodar no Win98)
estou usando o seguinte esquema:
Procedure Imprimir ..
Var
T : TextFile
begin
AssignFile(T, ´COM1´);//abre a impressoa
Rewrite(T);
Writeln(´LINHA 1´); // imprimi o texto ...
Writeln(´LINHA 2´); // imprmi o texsto
CloseFile(T);//libera porta
end;
Desde já agradeço a atenção dispensada.
Webes.
Estou com o seguinte problema: fiz um sistema que irá imprimir um cupom não fiscal, usando uma mini-impressora EPSON TM-U200D (40 colunas) e quando mando imprimir só imprime corretamente 46/47 linhas e começa a imprimir caracteres estranhos.
Já tentei com o driver correto da impressora, já tentei com o driver genérico/somente texto, tentei todas a configurações possívels de papel da impressora e este problema persiste. (na programação estou usando o sistema operacional XP, mas o sistema vai rodar no Win98)
estou usando o seguinte esquema:
Procedure Imprimir ..
Var
T : TextFile
begin
AssignFile(T, ´COM1´);//abre a impressoa
Rewrite(T);
Writeln(´LINHA 1´); // imprimi o texto ...
Writeln(´LINHA 2´); // imprmi o texsto
CloseFile(T);//libera porta
end;
Desde já agradeço a atenção dispensada.
Webes.
Webes
Curtidas 0