call "PC_PRINTER_SET_FONT" using     printer-handle
                                     font-family-name
                           by value  font-size
                           by value  font-style
                           returning status-code 
               	 01 cblt-printer-name       typedef.
  03 cblte-pn-name-length  cblt-x2-comp5. *> pic x(2) comp-5.
  03 cblte-pn-name         cblt-x1.       *> Occurs depending on
                                          *> cblte-pn-name-length.  pic x(n). 
                     			 | printer-handle | プリンターが開かれた場合に返されるプリンター ハンドル。 | 
| name-len | フォント ファミリ名の長さ。 | 
| name-text | 使用するフォントのファミリ名 (Courier、Symbol、Times New Roman、Roman など)。 | 
| font-size | フォントのポイント サイズ。 | 
| font-style | 必要なフォント スタイルを定義する一連のビット:
                                 
 その他のすべてのビットは将来使用するために予約されているため、設定しないでください。  |  
                              				
                           
| status-code | プリンター処理ルーチンの戻りコード |