こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

こんにちは。いつもお世話になっています。
現在、ドットプリンタにバーコードの印刷を試みていますが、
数値のままの表記になってしまい、うまくいきません。
他の方の質問・回答も検索し、いろいろ試したのですが
状況に変わりがなかったので改めて質問を書かせていただきました。
現在使用しているプリンタは、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*"数値(文字列?)で印刷されてしまいます。

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

投稿日時 - 2008-07-02 19:48:52

QNo.4146461

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

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

投稿日時 - 2008-07-02 19:54:37

補足

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

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

投稿日時 - 2008-07-03 10:06:53

お礼

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

投稿日時 - 2008-07-03 09:16:25

あなたにオススメの質問