バーコード印刷

バーコードと一緒に文字も印刷したいのですけど
日本語が文字化けを起こしてしまいます。

Private Sub Command1_Click()
Printer.PaperSize = vbPRPSA4
Printer.FontSize = 16
Printer.Font = "CODE39"
Printer.Print "*KATOM*"
Printer.Font = "ＭＳ Ｐゴシック"
Printer.Print "あああ"
Printer.Print "AAA"
Printer.EndDoc

End Sub

CODE39というのがバーコードのフォントです。
"あああ"が文字化けするのですがどなたかわかりますか？

No.2 回答者： todo36 回答日時： 2003/07/16 17:10

MSの検索

参考URL：http://search.microsoft.com/search/results.aspx? …

No.1 回答者： sienna 回答日時： 2003/07/16 17:05

バーコードとバーコードに対応する数字（文字）が

近すぎるのではないでしょうか。

Printer.Print "*KATOM*"
Printer.Font = "ＭＳ Ｐゴシック"
Printer.Print
Printer.Print "あああ"
Printer.Print "AAA"

のようにして改行を入れてみてはいかがでしょうか。