Fórum Imprimir c/ writeln #148575
21/03/2003
0
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,
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
Curtir tópico
+ 0
Responder
Posts
21/03/2003
Dor_poa
troca o lpt1 por PRN
Responder
Gostei + 0
22/03/2003
Adilsond
Troque a linha:
AssignFile(impressora,´LPT1´);
por
AssignPrn(impressora);
AssignFile(impressora,´LPT1´);
por
AssignPrn(impressora);
Responder
Gostei + 0
20/05/2005
Osocram
Sei q este topico eh antigo.. mas eu tive este problema...
eu resolvi desta maneira....
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)