Sub SetFont でフォントを生成する際に、 MM_TEXT から MM_LOMETRIC あるいは MM_HIMETRIC で 生成するようにしてみては如何でしょうか。
> Private Sub pd_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) > Dim mFont As IntPtr ここで宣言されたローカル変数の mFont と
> Private Sub SetFont(ByVal control As IntPtr, ByVal fontFamily As String, ByVal fontSize As Integer) > mFont = CreateFont(fontSize * -1, 0, 0, 0, 400, 0, 0, 0, 1, 0, 0, 0, 0, fontFamily) ここで利用されているフィールド変数の mFont は それぞれ別の変数ですが、大丈夫ですか?