あきらかな間違いが２点あります。

１つはフォントの名前が違います。
"MS 明朝"ではなく、"ＭＳ 明朝"が正しい名前です。
紛らわしいのですがＭＳは全角です。(これはフォントを扱う人の間では昔から紛らわしことで有名)。

次にPadLeft、PadRightの使い方を誤解しています。
これらは指定した幅になるようにスペース(または指定した文字)を埋め込む機能です。
そのために何文字埋め込めばよいかは自動的に計算されるので、引数には幅自体を渡します。
ただこの計算は文字数で行われるので全角・半角が混在する場合はたかくんさんが苦慮されているように独自の計算を行う必要があります。
つまり、PadLeft、PadRightを使わないか、使う場合でも本当のサイズではなく全角・半角を考慮したサイズを渡す必要があります。
後者は保守性がとても悪いので私は前者をお勧めします。

つまり、次のようなプログラムになります。
上記２点の他にもいろいろ整理してしまいました。

Public Class Form1



    ''' <summary> 

    ''' 帳票描画 

    ''' </summary> 

    ''' <param name="size">印刷可能範囲</param> 

    ''' <returns>帳票画像</returns> 

    ''' <remarks></remarks> 

    Private Function DrawReport(ByVal size As Size, ByVal data As DataTable) As Bitmap



        Dim report As New Bitmap(size.Width, size.Height)



        Using font As Font = New Font("ＭＳ 明朝", 10)

            Using pen As New Pen(Brushes.Black, 1)

                Using g As Graphics = Graphics.FromImage(report)



                    '●１．全体設定 



                    Dim locate As Point = New Point(1, 1)



                    g.Clear(Color.White)

                    g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

                    g.DrawRectangle(pen, New Rectangle(locate, New Size(size.Width - 2, size.Height - 2)))



                    '●２．ヘッダー部 



                    Dim nameTitle As String = Fit("氏名", 12, LeftRightAlignment.Left)

                    Dim postTitle As String = Fit("郵便番号", 12, LeftRightAlignment.Left)

                    Dim adrsTitle As String = Fit("住所", 25, LeftRightAlignment.Left)

                    Dim yearTitle As String = Fit("年齢", 4, LeftRightAlignment.Right)

                    Dim sexTitle As String = Fit("性別", 4, LeftRightAlignment.Right)

                    Dim title As String = nameTitle & postTitle & adrsTitle & yearTitle & sexTitle

                    g.DrawString(title, font, Brushes.Black, locate)



                    '●３．明細部 



                    '▼３－１．行間計算等 

                    Dim pitch As Integer = font.Height + 3

                    Dim maxrow As Integer = size.Height / pitch

                    Dim rowcounter As Integer = 0





                    Do While rowcounter < maxrow



                        '▼３－２．罫線 

                        locate = New Point(1, rowcounter * pitch + pitch)

                        g.DrawLine(pen, locate, New Point(size.Width - 2, locate.Y))



                        '▼３－３．明細内容 

                        If rowcounter < data.Rows.Count Then

                            Dim row As DataRow = data.Rows(rowcounter)



                            Dim Name As String = Fit(row(0), 12, LeftRightAlignment.Left)

                            Dim post As String = Fit(row(1), 12, LeftRightAlignment.Left)

                            Dim adrs As String = Fit(row(2), 25, LeftRightAlignment.Left)

                            Dim year As String = Fit(row(3), 4, LeftRightAlignment.Right)

                            Dim sex As String = Fit(row(4), 4, LeftRightAlignment.Right)

                            Dim line As String = Name & post & adrs & year & sex



                            g.DrawString(line, font, Brushes.Black, locate)



                        End If

                        rowcounter += 1

                    Loop



                End Using

            End Using

        End Using



        Return report

    End Function