UNICODE文字を印刷するには？ (ID:82749)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 過去ログを検索してみるとTextOutWという関数を使うと出来ると あったんですが、以下のようにしても出ません・・・(^_^;) 初歩的なことでお恥ずかしいのですが、教えてください。 33A5ってコードを指定するのが違うんでしょうか？立方メートルなんですが・・ Option Explicit Dim B() As Byte Dim S As String Dim R As Long Private Declare Function TextOutW Lib "GDI32.DLL" (ByVal hDC As Long, ByVal nXStart As Long, _ ByVal nYStart As Long, lpString As Byte, _ ByVal cbString As Long) As Long Sub AAA() S = "33A5" B = S R = TextOutW(Printer.hDC, 10, 10, B(0), Len(S)) End Sub