SetPrnFont function (WinPrn)
Starts printing using a chosen font.
function SetPrnFont(var F: Text; Font: HFont): HFont;
SetPrnFont causes the file to begin printing using the given font. The font handle currently being used by the printer is returned. If the font handle returned is not going to be used futher by the program it must be disposed of by calling DeleteObject. A font handle can be created using the Windows API functions CreateFont or CreateFontIndirect.