[eXplorer]

юзать гугл надо
вот пример печати мэмо с установкой шрифта (с другого форума):

Код:

procedure PrintMemo(Strings: TStrings);
Var
Prn: TextFile;
i: word;
begin
AssignPrn(Prn);
try
 Rewrite(Prn);
try
 Printer.Canvas.Font:=Form1.Memo1.Font;
 Printer.Canvas.Font.size=12;
for i := 0 to Strings.Count - 1 do
   writeln(Prn, Strings.Strings[i]);
 finally
  CloseFile(Prn);
 end;
 except
    on EInOutError do
    MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  PrintMemo(Memo1.Lines); 
end;