Imprimir c/ writeln

Delphi

21/03/2003

Oi amigos!

Estou fazendo uma rotina p/ imprimir NF direto. Vejam um trecho dela:


var
impressora : TextFile;
begin

AssignFile(impressora,´LPT1´);
ReWrite(impressora); // *** AQUI ***


Justamente qdo o programa chega na linha comentada, ele dá a seguinte mensagem de erro: ´Invalid filename´

Eu tenho certeza de que a LPT1 está correta, pq. eu já fui no DOS e digitei:

copy re.bat lpt1

E ele imprimiu o conteudo do arq. re.bat.

A impressora está instalada corretamente, imprimindo as outras coisas... Qual pode ser o problema???


Grata,


Renata

Renata

Curtidas 0

Respostas

Dor_poa

Dor_poa

21/03/2003

troca o lpt1 por PRN


GOSTEI 0
Adilsond

Adilsond

21/03/2003

Troque a linha:

AssignFile(impressora,´LPT1´);

por

AssignPrn(impressora);


GOSTEI 0
Osocram

Osocram

21/03/2003

Sei q este topico eh antigo.. mas eu tive este problema...
eu resolvi desta maneira....
uses Printers;

procedure PrintStrings(Strings: TStrings);
var
    Prn: TextFile;
    i: word;
begin
AssignPrn(Prn);
try
    Rewrite(Prn);
try
    for i := 0 to Strings.Count - 1 do
    writeln(Prn, Strings.Strings[i]);
finally
    CloseFile(Prn);
end;
except
on EInOutError do
    MessageDlg(´Erro durante a impressão´, mtError, [mbOk], 0);
end;

end;



GOSTEI 0
POSTAR