Fórum Erro na Impressão?? #240130
28/06/2004
0
Alguem sabe o que está errado nesta função:
var I: Integer;
begin
try
AssignFile(Arq,´EPSON LX-300+ (CÓPIA 2) ON \\MICRO3\LX300MAIS´);
Rewrite(Arq);
WriteLn(Arq,´cccccc´);
WriteLn(Arq,´#12´);
CloseFile(Arq);
except
raise exception.Create(´Erro Na Impressão´);
Close;
Exit;
end;
Close;
Sendo que a impressora exite e o caminho está certo
da mensagem de erro ´Invalid FileName´
var I: Integer;
begin
try
AssignFile(Arq,´EPSON LX-300+ (CÓPIA 2) ON \\MICRO3\LX300MAIS´);
Rewrite(Arq);
WriteLn(Arq,´cccccc´);
WriteLn(Arq,´#12´);
CloseFile(Arq);
except
raise exception.Create(´Erro Na Impressão´);
Close;
Exit;
end;
Close;
Sendo que a impressora exite e o caminho está certo
da mensagem de erro ´Invalid FileName´
Leonardobhbr
Curtir tópico
+ 0
Responder
Posts
28/06/2004
Speedrob
diz que o arquivo não existe.
ta faltando tu declarar a varialvel arq do tipo file;
tenta fazer isso
falou
ta faltando tu declarar a varialvel arq do tipo file;
tenta fazer isso
falou
Responder
Gostei + 0
28/06/2004
Leonardobhbr
Arq: TextFile;
Responder
Gostei + 0
29/06/2004
Tatuweb
O erro está aí:
:arrow: [b:ec7684c64c]AssignFile(Arq,´EPSON LX-300+ (CÓPIA 2) ON \\MICRO3\LX300MAIS´); [/b:ec7684c64c]
Vc têm usar:
:arrow: [b:ec7684c64c]AssignFile(Arq,´LPT1´); [/b:ec7684c64c]
Supondo que LPT1 seja a porta padrão para impressão.
:wink:
:arrow: [b:ec7684c64c]AssignFile(Arq,´EPSON LX-300+ (CÓPIA 2) ON \\MICRO3\LX300MAIS´); [/b:ec7684c64c]
Vc têm usar:
:arrow: [b:ec7684c64c]AssignFile(Arq,´LPT1´); [/b:ec7684c64c]
Supondo que LPT1 seja a porta padrão para impressão.
:wink:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)