Imprimir arquivo ???
Como eu imprimo um arquivo direto para a impressora....
Este arquivo é um arquivo texto ...
Tentei imprimir da forma .. writeln e da um erro I/O 5
Espero por ajuda ..
Grato
Ítalo Rabello
Este arquivo é um arquivo texto ...
Tentei imprimir da forma .. writeln e da um erro I/O 5
Espero por ajuda ..
Grato
Ítalo Rabello
Rabello
Curtidas 0
Respostas
Vagneroraculo
27/02/2004
procedure imprimir;
var
arquivo:textfile;
Linha:String;
begin
assignfile(arquivo,´LPT1´);
reset(arquivo);
rewrite(arquivo);
Linha:=´Teste´;
writeln(arquivo,linha);
CloseFile(Arquivo);
var
arquivo:textfile;
Linha:String;
begin
assignfile(arquivo,´LPT1´);
reset(arquivo);
rewrite(arquivo);
Linha:=´Teste´;
writeln(arquivo,linha);
CloseFile(Arquivo);
GOSTEI 0
Rabello
27/02/2004
Deu erro I/O 21
GOSTEI 0