Como imprimir o Conteudo de um Arquivo
Gostaria de saber como que faço para imprimir o conteudo de um arquivo, ex:
tem um arquivo no c:\ com o nome de arquivo.txt ai eu queria imprimir o que tem dentro dele atraves do delphi, ou imprimir uma imagem por ex: a imagem esta no c:\temp com o nome de img.jpg ai eu queria imprimir ela.
Desde já Obrigado.
tem um arquivo no c:\ com o nome de arquivo.txt ai eu queria imprimir o que tem dentro dele atraves do delphi, ou imprimir uma imagem por ex: a imagem esta no c:\temp com o nome de img.jpg ai eu queria imprimir ela.
Desde já Obrigado.
Spooner
Curtidas 0
Respostas
Leanribas
12/12/2004
vc pode fazer assim:
coloque no uses a unit Printers e JPeg
procedure TForm1.Button1Click(Sender: TObject);
var
Img : TJPEGImage;
Txt : TextFile;
begin
//imprimir figura JPG
Img := TJPEGImage.Create;
try
Img.LoadFromFile(´c:\teste.jpg´);
Printer.BeginDoc
Printer.Canvas.Draw(0,0,Img);
Printer.EndDoc;
finally
Img.Free;
end;
//imprimir arquivo texto, não sei se esse é a melhor maneira
winexec(´command.com /c type c:\teste.txt > prn´,SW_HIDE);
end;
Falou.
Leandro
coloque no uses a unit Printers e JPeg
procedure TForm1.Button1Click(Sender: TObject);
var
Img : TJPEGImage;
Txt : TextFile;
begin
//imprimir figura JPG
Img := TJPEGImage.Create;
try
Img.LoadFromFile(´c:\teste.jpg´);
Printer.BeginDoc
Printer.Canvas.Draw(0,0,Img);
Printer.EndDoc;
finally
Img.Free;
end;
//imprimir arquivo texto, não sei se esse é a melhor maneira
winexec(´command.com /c type c:\teste.txt > prn´,SW_HIDE);
end;
Falou.
Leandro
GOSTEI 0