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

名前

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

本文 DeviceオブジェクトはオプションボタンでFormのPictureBoxと Printerを切り替えています。 Option Explicit Dim S As String Dim R As Long Dim b() As Byte Public Device As Object 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 TEST() S = ChrW("&H" & unicodeprint1.Text1) b = S Device.FontSize = 350 Device.FontName = "Arial Unicode MS" R = TextOutW(Device.hDC, 1, -80, b(0), Len(S)) End Sub