Como imprimir el texto introducido en un memo

[roman]

Si buscas en la ayuda de TPrinter|Using TPrinter, verás un ejemplo muy parecido a éste:

Código Delphi [-]
var
  J: Integer;

begin
  Printer.BeginDoc;
  Printer.Canvas.Font := Memo1.Font;

  for J := 0 to Memo1.Lines.Count - 1 do
    Printer.Canvas.TextOut(
      MARGIN_LEFT,
      MARGIN_TOP + J*Printer.Canvas.TextHeight(Memo1.Lines[J]),
      Memo1.Lines[J]
    );

  Printer.EndDoc;
end;

que imprime el contenido del memo con los márgenes dados y con la fuente que tenga el memo.

// Saludos