Fórum Como imprimir texto de um MEMO ou de um arquivo de texto #221334

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;