مشكلة في مقاسات الفورم - نسخة قابلة للطباعة

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim D1Column1 As New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {D1Column1})

        Dim D2Column1 As New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {D2Column1})

        DataGridViewHeightUpdate()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataGridView1.Rows.Add(New String() {"a" + Rnd().ToString})

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataGridView2.Rows.Add(New String() {"a" + Rnd().ToString})

    End Sub


#Region " DataGridViewHeightUpdate "

    Private Sub DataGridView1_RowHeightChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowEventArgs) _
    Handles DataGridView1.RowHeightChanged, DataGridView2.RowHeightChanged
        DataGridViewHeightUpdate()
    End Sub

    Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) _
    Handles DataGridView1.RowsAdded, DataGridView2.RowsAdded
        DataGridViewHeightUpdate()
    End Sub

    Private Sub DataGridView1_RowsRemoved(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) _
    Handles DataGridView1.RowsRemoved, DataGridView2.RowsRemoved
        DataGridViewHeightUpdate()
    End Sub

    Private Sub DataGridViewHeightUpdate()
        'DataGridView1'
        Dim h1 As Integer = Me.DataGridView1.RowTemplate.Height
        For Each r1 As DataGridViewRow In DataGridView1.Rows
            h1 += r1.Height
        Next
        DataGridView1.Height = h1 + 1

        'DataGridView2'
        Dim h2 As Integer = Me.DataGridView2.RowTemplate.Height
        For Each r2 As DataGridViewRow In DataGridView2.Rows
            h2 += r2.Height
        Next
        DataGridView2.Height = h2 + 1

        DataGridView2.Top = DataGridView1.Bottom + 10

        'Form ClientSize'
        Me.ClientSize = New Size(Me.ClientSize.Width, Me.DataGridView2.Bottom + 30)

    End Sub

#End Region

End Class 