No35185 の記事表示 - DOBON.NETプログラミング道掲示板

DOBON.NETプログラミング道掲示板

No35185 の記事

■35185 / )

　VB.NetでVB6.0と同じFontを指定しても同様に印刷されない

□投稿者/ ゆりりん一般人(1回)-(2022/10/21(Fri) 11:45:23)

環境/言語:[環境(Windows10 64bit)、使用言語(VB.net2017)、.NET Framework 4.6.1 ]　
分類:[.NET]　

いつも参照させていただいています。

現在、VB6.0で書かれた印刷プログラムをVB.Netに移行しています。
その中で、VB6.0と全く同じ座標とFont種類・サイズを指定しても、
VB.Netで印刷すると、少し右にずれてしまうし、Fontのサイズが微妙に違ってしまいます。
Fontの高さは同じようなのですが、文字と文字の隙間が微妙に違うようで、長い文字列を印刷すると、印刷された文字の長さがVB.Netの方が長くなってしまうのです。
座標系はどちらも、ミリメートルを指定しています。
VB.Netで印刷された文字列の前に空白が付くことは、下記のサイトを参照して分かったので、ずれる分を引いた座標を指定したら、右にずれる件は解決したのですが、同じFontを指定しても違ってしまう件が解決できません。
同じプリンタとプリンタドライバを使用しているのに、どうしてVB6.0とVB.Netで違ってしまうのか、まったくわかりません。

・使用しているプリンタ　ラベルプリンタ　SATO CL4NX-J 609dpi
・プリンタ解像度　609dpi　24dot/mm

・参考にしたサイト
VB.netで文字を正確な位置に描く。
https://penguinlab.jp/blog/post/117

※VB6.0のサンプル

Printer.ScaleMode = 6
Printer.FontName = "ＭＳゴシック"
Printer.FontSize = 9
Printer.CurrentX = 12.5
Printer.CurrentY = 30.7
Printer.Print "IN-OUT<AB>CD EFG-HIJK-LMN A<10>"

※VB.Netのサンプル

e.Graphics.PageUnit = GraphicsUnit.Millimeter
Dim f As New Font("ＭＳゴシック", 9, FontStyle.Regular)
e.Graphics.DrawString("IN-OUT<AB>CD EFG-HIJK-LMN A<10>", f, Brushes.Black, 12.5, 30.7)

こんな感じです。

どなたかわかる方、どうかアドバイスをお願いいたします。

違反を報告