vb.net　印字位置と文字サイズについて

投稿日 投稿者 esadao

vb.netで印刷する場合に、e.Graphics.DrawString命令でｘ座標とY座標を指定する。
この場合、X座標、Y座標と印字する文字の大きさとの関係がポイントとインチ位置で
計算がやこしい。

スタート位置から文字のサイズを積み上げていく方法で対応した。
まずフォントによってサイズを取得する。
Dim text As String = “A” ‘ 1文字の高さを取得
Dim size As SizeF = e.Graphics.MeasureString(text, PF_GOTHIC11) ‘ 文字のサイズを取得
Dim rowHeight As Single = size.Height ‘ フォントの高さ
Dim columnWidth As Single = size.Width

要は、10行目で3列目なら
　　Y＝roHeight * 10
　　X＝columnWidth * 5
と文字を積み上げていく方法