WinPrn использует назначенный по  умолчанию  шрифт,  который
        возвращается драйвером устройства. Чтобы изменить шрифт, вызовите
        функцию SetPrnFont,  передав ей описатель  используемого  шрифта.
        SetPrnFont возвращает  текущий  используемый шрифт.  Возвращаемый
        шрифт можно использовать для будущего вызова SetPrnFont  или  для
        передачи его DeleteObject.  Приведем пример программы, демонстри-
        рующей изменение шрифта:;

             program Test;

             uses WinTypes, WinProcs, WinCrt, WinPrn;

             var
               Prn: Text;
               OldFont: HFont;

             begin
               Writeln('Печать...');
               AssingDefPrn(Prn);
               Rewrite(Prn);

               Rewrite(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.