Imprimir *.txt
Ola pessoal, eu estou com um problema. Estou querendo imprimir arquivos *.txt em uma impressora LX300. Alguem pode me ajudar?
Obs.: O arquivo ja existe em um path qualquer.
Obs.: O arquivo ja existe em um path qualquer.
Marcelo
Curtidas 0
Respostas
Imoreira
26/11/2003
Declare a unit [color=red:24c2c192ea]Printers[/color:24c2c192ea] na seção uses
procedure TForm1.ImprimirClick(Sender: TObject);
var
LinhaRecibo : Integer;
PRN : TextFile;
begin
if FindFile(´c:\Recibo.txt´) then begin
try
AssignFile(PRN,´LPT1´);
Rewrite(PRN);
for LinhaRecibo := 0 to Texto.lines.Count-1 do begin //Texto é um componente RichEdit
WriteLn(PRN,Texto.Lines.Strings[LinhaRecibo]);
end;
System.CloseFile(PRN);
except
System.CloseFile(PRN);
showmessage(´Ocorreu um erro ao imprimir.´);
end;
end else begin
Printer.PrinterIndex := -1;
Texto.print(´Impressão de recibo´);
end;
end;
procedure TForm1.ImprimirClick(Sender: TObject);
var
LinhaRecibo : Integer;
PRN : TextFile;
begin
if FindFile(´c:\Recibo.txt´) then begin
try
AssignFile(PRN,´LPT1´);
Rewrite(PRN);
for LinhaRecibo := 0 to Texto.lines.Count-1 do begin //Texto é um componente RichEdit
WriteLn(PRN,Texto.Lines.Strings[LinhaRecibo]);
end;
System.CloseFile(PRN);
except
System.CloseFile(PRN);
showmessage(´Ocorreu um erro ao imprimir.´);
end;
end else begin
Printer.PrinterIndex := -1;
Texto.print(´Impressão de recibo´);
end;
end;
GOSTEI 0