check help on set printer, there is a font clause

>I have an old but complex prg
>
>set prin to prinfile
>set device to prin
>@x,y say blah blah blah
>many more lines like this all over the page
>type prinfile to prin
>return"
>
>I was hoping to set the font to desired font just b4 the start of this. Can this be done as I have only seen functions that return current font, etc.
>thank you