Hola
Aquí tienes un ejemplo de como imprimir un TMEMO utilizado directamente el lienzo de la impresora, con la particularidad de poder utilizarlo en todas las versiones de Delphi.
Código Delphi
[-]
Procedure TDlgMsgMemo.BotonImprimirClick(Sender: TObject);
Var
Linea : LongInt;
F : TextFile;
Begin
If DlgImpresora.Execute then
begin
Try
AssignPrn(F);
Rewrite(F);
Printer.Canvas.Font := IdMemo.Font;
Printer.Canvas.Font.Style := [];
Printer.Canvas.Font.Size := 12;
Linea := 0;
While Linea < IdMemo.Lines.Count Do
begin
Writeln(F,IdMemo.Lines[Linea]);
Inc(Linea);
end;
Finally
System.Close(F);
end;
end;
IdMemo.SetFocus;
End;
Un saludo