掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Printerオブジェクトを使用してUnicode文字を印刷するには？ (ID:100886)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
VB6.0で中国語の文字を印刷したいのですが、 普通に印刷すると特有文字は"?"に化けてしまいます。 過去ログでもあったのですが、UnicodeをTextoutWのAPIを 使用して印刷しようとしています。 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 Function TextOut (obj As Object, x As Long, y As Long, s As String) As Long Dim b() As Byte b = s TextOut = TextOutW(obj.hDC, x, y, b(0), Len(s)) End Function で印刷を実行しています。 1.objをピクチャボックスに割り当てると表示されるのですが Printerにすると、Enddocしても印刷が実行されません。 苦肉の策で、最初にNEWPAGEをいれると印刷されるのですが 白紙１枚とUnicode変換されたのが１枚と2枚印刷されてしまいます。 TextoutWを使用せずPrinter.Printを使用すれば 正常に印刷されます。 印刷できない理由があるのでしょうか？ プリンター接続はTCP/IP接続です。 2. プリンタ ピクチャボックスを共に".ScaleMode=6(ミリ単位)"に しているんですが表示、印刷すると、文字ピッチが全く異なるのですが 何か間違っているのでしょうか？ 初心者で変な質問で申し訳ありません。 ご教授よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.