Erro na Impressão??
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
Curtidas 0
Respostas
Speedrob
28/06/2004
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
GOSTEI 0
Leonardobhbr
28/06/2004
Arq: TextFile;
GOSTEI 0
Tatuweb
28/06/2004
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:
GOSTEI 0