VB6 文字間隔

質問

VB6で印刷したい文字列に文字間隔を付けることは可能でしょうか？

回答No.2

uruz

＞文字間隔を調整する事は可能でしょうか？

先の回答で「1文字づつ座標を指定すれば可能です。」と回答しました。
不十分でしょうか？

作成するプロシージャの例
(見やすくするため全角スペースでイデントを付けています)
Private Sub PrintEx(TXT As String, Optional HS As Single = 0#)
　Dim txA As String
　Dim i As Long

　If TXT <> "" Then
　　For i = 1 To Len(TXT)
　　　txA = Mid(TXT, i, 1)
　　　If i <> 1 Then
　　　　Printer.CurrentX = Printer.CurrentX + HS
　　　End If
　　　Printer.Print txA;
　　Next i
　End If
　Printer.Print ""
End Sub

上記プロシージャを作成しておき
Printer.Print "文字列"
の変わりに作成したプロシージャを使用します
PrintEx "文字列",2.5
プリンターオブジェクトのScaleModeがミリメートルに設定されている場合は文字と文字の間隔は2.5ミリで印刷されます。
2.5の部分を変更すれは文字間隔を変えられます。
また、決まった範囲に均等割したければ　Printer.TextWidthメソッドで文字列の横サイズを得て印刷エリアとの差と文字数から文字間隔を算出することで実現できます。

回答No.1

uruz

1文字づつ座標を指定すれば可能です。
いちいち座標指定するのは効率が悪いですから目的にあったプロシージャを作って対応すればいいでしょう。

補足

回答ありがとう御座います。
文字間隔を調整する事は可能でしょうか？
伝票印刷するので文字と文字の間を若干あけて印刷したいのですが・・・