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