全角文字を正しく印刷するには？

解決

MT 2004-11-06 09:47:24 No: 117391

初めまして、お世話になります。
早速ですが質問させていただきます。

半角一文字を全角に変換して印刷したいのですが、
下記のコードではデバックウインドウには「８」が全角で表示されるのですが、
印刷したときは「.W」のようになってしまい困っています。
解決方法をご教示頂けたらと思います。

Private Sub Command3_Click()
    Debug.Print StrConv("8", vbWide)
    Printer.Print StrConv("8", vbWide)
    Printer.EndDoc
End Sub

MT 2004-11-06 10:01:23 No: 117392

書き忘れました。VB6です。
よろしくお願いします・・・

split() 2004-11-06 10:24:53 No: 117393

そのプリンタで普通に全角の文字を印刷できますか？
Printer.Print "８"
とか

MT 2004-11-06 16:34:32 No: 117394

split()さん、返答ありがとうございます。
プリンタはキャノンBj-S600です。

上記コードに
    Printer.Print "８"
を追加したところちゃんと全角で印刷できました。また、
    Debug.Print StrConv("8", vbWide)
    Printer.Print StrConv("8", vbWide)
    Printer.EndDoc
だけにしても印刷できました。
間違いなく昨日は文字が化けて印刷されていました。
原因がわかりませんが、とりあえず目的の動作をするプログラムになったので
これで様子を見ます。
もし、考えられる要因が他にあるような場合はご教示願います。