指定位置に（文字・罫線）印刷する
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
指定位置に（文字・罫線）印刷する　　　　　　　　（０３５）
　　　　　 Option Explicit　　 'SampleNo=035　WindowsXP VB6.0(SP5) 2002.05.02

Private Sub Locate(X As Long, Y As Long, myStr As String)
　　With Printer
　　　　.ScaleMode = vbCharacters　 'キャラクターモードに設定
　　　　.CurrentX = X　　　　　　　 '水平座標の設定
　　　　.CurrentY = Y　　　　　　　 '垂直座標の設定
　　End With
　　Printer.Print myStr　　　　　　 '指定位置に文字列を印刷（表示）
End Sub


Private Sub Command1_Click()
　　'印字ずれを防ぐために等幅文字を指定
　　Printer.FontName = "ＭＳ 明朝"
　　Printer.FontSize = 12

　　Locate 0, 0, "０行目の０桁目から印字します。"
　　Locate 10, 4, "４行目の１０桁目から印字します。"
　　Locate 5, 8, "８行目の５桁目から印字します。 "

　　Locate 5, 11, Right$(Space$(14) & Format$("1234567.89", "#,###.00"), 14)
　　Locate 5, 12, Right$(Space$(14) & Format$("1234.56", "#,###.00"), 14)

　　Locate 22, 11, Right$(Space$(14) & Format$("1234567.89", "#,###.00"), 14)
　　Locate 22, 12, Right$(Space$(14) & Format$("1234.56", "#,###.00"), 14)

　　Locate 5, 14, "1234.56"
　　Locate 5, 15, "1234.56"

　　Printer.DrawStyle = vbDashDot　　　 '線種を指定
　　Printer.DrawWidth = 5　　　　　　　 '線の太さを指定
　　Printer.Line (5, 15)-(36, 15)　　　 '中間にラインを印字

　　Printer.EndDoc

End Sub


このようなプロシージャを作っておくと何行目の何桁目に印刷と設定が簡単です。
又、場合によってはフォントの種類やサイズも同時にプロシージャに設定しておくと、便利に
なるかと思います。
尚、印刷位置のずれを防止するには、下記の青色ポイントサイズとフォントを使用して下さい
参　考

　　ＭＳ 明朝　及び　ＭＳ ゴシック

　　　文字ポイント　　　半角幅　　　　全角幅
　　　　　 ９ 　　　　　９０　　　 １８０
　　 　　１０ 　　　　１０５　　 　１９５
　　 　　１１　　 　　１２０　　　 ２２５
　　　　 １２ 　　　　１２０　　　 ２４０
　　 　　１４　　 　　１５０　　　 ２８５
　　 　　１６　　 　　１６５　　 　３１５
　 　　　１８ 　　　　１８０　　 　３６０
　　 　　２０　　 　　２１０　　 　４０５

　　　　幅の単位＝twip

注意　ＭＳ Ｐ明朝　及び　ＭＳ Ｐゴシックは文字により幅が違います。




2002/05/02