program Test;

uses WinTypes, WinProcs, WinCrt, WinPrn;

var
  Prn     : Text;
  OldFont : HFont;

begin
 WriteLn('Печать...');
  AssignDefPrn(Prn);
 ReWrite(Prn);
 WriteLn(Prn, 'Это просто текст');
  OldFont := SetPrnFont(Prn, CreateFont(100, 0, 0, 0, 0, 0, 0, 0, 1,
    Out_Default_Precis, Clip_Default_Precis,
    Default_Quality, ff_Roman, Nil);
 WriteLn(Prn, 'Это тоже текст, но другим шрифтом');
  DeleteObject(SetPrnFont(Prn, OldFont));
 WriteLn(Prn, 'Назад к старому шрифту');
 Close(Prn);
 WriteLn('Закончена!');
end.