Imprimir arquivo gerado

Delphi

30/09/2003

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


Chaquater

Chaquater

Curtidas 0

Respostas

Japa

Japa

30/09/2003

AssignPrn(´c:\nome_do_arquivo.txt´);


GOSTEI 0
Mmtoor

Mmtoor

30/09/2003

Prezado:
Essa n da erro:

WinExec(´NotePad.exe /p PATH DO ARQUIVO.txt´, 0);

MMTOOR2003


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

30/09/2003

Colega,


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;



GOSTEI 0
POSTAR