The WR SET FONT command allows you to set the font for the current selection in the 4D Write area referenced by area.
Pass in font the name of the font you want to apply. If font is not installed in the system, the error 1077 is returned.
See the example for the command WR Get font.