Having trouble with my datagridview print.

See more:

VB

.NET

.NET4

So, I know these are really noob questions, but I have two. One of them is that in the current code I cannot figure out how to adjust the cell with with the text wrap for height and was wondering if someone could lead me in the right direction to do that. The other question is that I don't know why this is only showing the first row. Is there something wrong with the loop?

I'm sure I am making it more difficult then necessary just can't find a premade class for this type of thing that will run on my VS2010. Seems there are only C# classes.

Thanks in advance and here is the code section:

'Draw the datagridview with contents and set start point
        Dim x As Integer = e.MarginBounds.Left
        Dim y As Integer = 230

        'Instantiate header count
        Dim j As Integer = 0

        Do While (j < Me.DataGridView1.Columns.Count)

            'Declare new rectangle for datagrid
            Dim rect As Rectangle = New Rectangle(x, y, 165, Me.DataGridView1.ColumnHeadersHeight)

            'Set string format and align
            Dim sf As StringFormat = New StringFormat
            sf.LineAlignment = StringAlignment.Center
            sf.Alignment = StringAlignment.Center

            'Draw and fill the rectangle
            e.Graphics.FillRectangle(Brushes.LightGray, rect)
            e.Graphics.DrawRectangle(Pens.Black, rect)

            'Check to make sure column exists
            If (Not (Me.DataGridView1.Columns(j).HeaderText) Is Nothing) Then

                'Draw column header
                e.Graphics.DrawString(Me.DataGridView1.Columns(j).HeaderText, SystemFonts.DefaultFont, Brushes.Black, rect, sf)

            End If

            'Increment the width of rectanlge and column number
            x = (x + rect.Width)
            j = (j + 1)

        Loop

        'Set the point of rectangle start
        x = e.MarginBounds.Left
        y = (y + Me.DataGridView1.ColumnHeadersHeight)

        'Instantiate row count
        Dim i As Integer = 0

        'Draw rows
        For Each row As DataGridViewRow In Me.DataGridView1.Rows

            'Loop through until counter is equal to number of rows
            Do While (i < Me.DataGridView1.Columns.Count)

                'Identify the cell
                Dim cell As DataGridViewCell

                'Associate cell with row
                cell = row.Cells(i)

                'Create new rectangle
                Dim rect As Rectangle = New Rectangle(x, y, 165, cell.Size.Height)

                'Set string format and align
                Dim sf As StringFormat = New StringFormat
                sf.LineAlignment = StringAlignment.Center
                sf.Alignment = StringAlignment.Center

                'Draw the
                e.Graphics.DrawRectangle(Pens.Black, rect)

                'Draw cell values if there is value
                If (Not (cell.Value) Is Nothing) Then
                    e.Graphics.DrawString(cell.Value.ToString, SystemFonts.DefaultFont, Brushes.Black, rect, sf)
                End If

                'Increment the rectangle and count
                x = (x + rect.Width)
                i = (i + 1)
            Loop

            x = 180
            y = (y + row.Height)

        Next