ドットプリンタでバーコードの印刷

質問

こんにちは。いつもお世話になっています。
現在、ドットプリンタにバーコードの印刷を試みていますが、
数値のままの表記になってしまい、うまくいきません。
他の方の質問・回答も検索し、いろいろ試したのですが
状況に変わりがなかったので改めて質問を書かせていただきました。
現在使用しているプリンタは、NECのMultiImpactです。
（VB6.0で作業しています。）
実際に現在組んでいるコードは下記のようなものです。
Public Sub AA()
　 ～略～
　 Printer.FontName = "OCR-B 10cpi"
　 Printer.FontSize = 12
　 Call Prt_set(10, 200, strNo) '※1

　 Printer.Font.Charset = 0
　 Printer.Font = "Code39"
　 Call Prt_set(280, 240, "*123456*")　　'※2
　 Printer.Font.Charset = 128
　 Printer.FontName = "OCR-B 10cpi"
　 Call Prt_set(280, 500, strC) '※3
　 ～略～
End Sub

'指定された位置に印字する
Public Sub Prt_set(i As Integer, j As Integer, Moji As String)
　　 Printer.CurrentY = i
　　 Printer.CurrentX = j
　　 Printer.Print Moji
End Sub

実行すると、
※1と※3の文字は正常に出力されますが、※2はそのまま"*123456*"数値（文字列？）で印刷されてしまいます。

初心者のため、見苦しいコードになっているかもしれませんが、どなたかなにか教えていただけないでしょうか。
よろしくお願いします。

回答No.1

celtJapan

誤）
Printer.Font = "Code39"
Call Prt_set(280, 240, "*123456*")　　'※2

正）
Printer.FontName = "Code39"
Call Prt_set(280, 240, "*123456*")　　'※2

お礼

早々のご回答ありがとうございます。
FontとFontName の違いがしっかり理解できてませんでした。
ただ、
FontをFontName に変更したところで印刷にはなにも変化がありませんでした・・・。

補足

Printer.FontName = "Code39"　の行を過ぎたときに
Printer.FontNameの値を見てみると"ＭＳ Ｐゴシック"になっていました。
ちなみに、
Printer.Font = "Code39"　のときはその行を過ぎると"Arial"です。

これはいいのでしょうか？？