Como imprimir texto de um MEMO ou de um arquivo de texto

Delphi

21/03/2004

Como faço para imprimir em uma impressora matricial (EPSON LX300) o texto que está escrito em um MEMO ou em um arquivo de texto salvo no disco rígido.


Vispo

Vispo

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

21/03/2004

Tenta esse código ai..

uses printers;

procedure TForm1.Button2Click(Sender: TObject);
var
 i: integer;
 PrintText: TextFile;
begin
  AssignPrn (PrintText);
  Rewrite (PrintText);
  Printer.Canvas.Font := Memo1.Font;
  Printer.Canvas.Font.Size := 12;
  Printer.Canvas.Font.Color := clBlack;
  Printer.Canvas.Font.Style := [fsItalic];
  for i:=0 to Memo1.Lines.Count-1 do
    Writeln (PrintText, Memo1.Lines[i]);
  System.Close (PrintText);
end;



GOSTEI 0
Vispo

Vispo

21/03/2004

Valeu companheiro!!!


GOSTEI 0
POSTAR