Рисование и печать таблицы

        'Рисуем таблицу. Размеры в миллиметрах, т.к. при распечатке они должны соответствовать заявленным
        e.Graphics.PageUnit = GraphicsUnit.Millimeter
        Dim Pen1 As New Pen(Color.Black, 0.2)
        e.Graphics.DrawRectangle(Pen1, tX, tY, tW, tH)
        e.Graphics.DrawLine(Pen1, tX, tY + 8, tX + tW, tY + 8)
        e.Graphics.DrawLine(Pen1, tX, tY + 22, tX + tW, tY + 22)
        e.Graphics.DrawLine(Pen1, tX, tY + 32, tX + tW, tY + 32)
        e.Graphics.DrawLine(Pen1, tX, tY + 38, tX + tW, tY + 38)
        e.Graphics.DrawLine(Pen1, tX, tY + 46, tX + tW, tY + 46)
 
        e.Graphics.DrawLine(Pen1, tX + 43, tY + 38, tX + 43, tY + 54)
        e.Graphics.DrawLine(Pen1, tX + 21, tY + 38, tX + 21, tY + 54)
 
        ' Отрисовываем текст
        Dim printFontZag = New Font("Verdana", 11, FontStyle.Regular)
        Dim printFontInfR = New Font("Verdana", 10, FontStyle.Regular)
        Dim printFontInfB = New Font("Verdana", 10, FontStyle.Bold)
 
        e.Graphics.DrawString("Строка Тест1", printFontZag, Brushes.Black, tX + 22, tY + 1, New StringFormat())
        e.Graphics.DrawString("Строка Тест2 ", printFontInfR, Brushes.Black, tX + 10, tY + 9, New StringFormat())
        '...
        e.Graphics.DrawString("Строка Тест3", printFontInfR, Brushes.Black, tX + 3, tY + 17, New StringFormat())

   'Убрать Сглаживание
        e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.None
        e.Graphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
        e.Graphics.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.Half

Private Sub Label1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles Label1.DoubleClick
    PrintForm1.Form = Me
    PrintForm1.PrintAction = Printing.PrintAction.PrintToPrinter
    PrintForm1.Print()
End Sub