stprnfnt.pas

 {StPrnFnt.PAS}
 
 { Пример программы для функции SetPrnFonts }
 
 Program Test;
 
 Uses WinTypes, WinProcs, WinCrt, WinPrn;
 
     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.