Fórum Imprimir arquivo gerado #185280
30/09/2003
0
Ola
Tenho um arquivo que é gerado pelo meu sistema. Ex: relclibai.txt
Gostaria de saber como faço para imprimi-lo sem precisar abri-lo em um campo mempo.
Desde já agradeço,
................................. Chaquater
Tenho um arquivo que é gerado pelo meu sistema. Ex: relclibai.txt
Gostaria de saber como faço para imprimi-lo sem precisar abri-lo em um campo mempo.
Desde já agradeço,
................................. Chaquater
Chaquater
Curtir tópico
+ 0
Responder
Posts
30/09/2003
Japa
AssignPrn(´c:\nome_do_arquivo.txt´);
Responder
Gostei + 0
30/09/2003
Mmtoor
Prezado:
Essa n da erro:
WinExec(´NotePad.exe /p PATH DO ARQUIVO.txt´, 0);
MMTOOR2003
Essa n da erro:
WinExec(´NotePad.exe /p PATH DO ARQUIVO.txt´, 0);
MMTOOR2003
Responder
Gostei + 0
30/09/2003
Aroldo Zanela
Colega,
Acho que houve um equívoco na mensagem do cologa sobre AssignPrn, segue um exemplo:
Acho que houve um equívoco na mensagem do cologa sobre AssignPrn, segue um exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var Arquivo: TStringList;
Relatorio: TextFile;
nX, nReg: Integer;
begin
Arquivo := TStringList.Create;
try
Arquivo.LoadFromFile(´relclibai.txt´);
AssignPrn(Relatorio);
ReWrite(Relatorio);
nReg:= Arquivo.Count-1;
For nX := 0 to nReg do
WriteLn(Relatorio, Arquivo.Strings[nX]);
except
Arquivo.Free;
CloseFile(Relatorio);
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)