code for printing database on datagrid view

[menyki]

pls i designed a database application using visual basic. i have done the coding for the print incase i want to print out the data.

Pls my problem is how to code at design time for the application to print the data in a tabular form. for now the records prints ontop of each other, i want the records and the field separated by rows and cells of a table as normal.

I used Ms access to design the database and the data is displayed by datagrid view. my code so far is as shown below. pls help me make correction to be able to achieve the above display

Public Class AccountView
 
    Private Sub BtnPDVPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPDVPrint.Click
        Dim print_document As PrintDocument = PreparePrintDocument()
 
        print_document.Print()
        If dlgPrint.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            dlgPrint.Document.Print()
        End If
    End Sub
    Private Function PreparePrintDocument() As PrintDocument
 
        ' Make the PrintDocument object.
 
        Dim print_document As New PrintDocument
 
        ' Install the PrintPage event handler.
 
        AddHandler print_document.PrintPage, AddressOf Print_PrintPage
 
        ' Return the object.
 
        Return print_document
 
    End Function
    Private Sub Print_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim k As Integer = 70
        Dim P As Integer = 320
 
        Dim imagePrint As Image = cd.Image
        Dim AA As Integer = Integer.Parse(imagePrint.Height.ToString)
        Dim tableFont As Font = New Font("Georgia", 14, FontStyle.Bold)
        Dim tableFont1 As Font = New Font("Georgia", 12, FontStyle.Regular)
        Dim tableFont4 As Font = New Font("Georgia", 11, FontStyle.Regular)
        Dim tableFont2 As Font = New Font("Times New Roman", 12, FontStyle.Bold)
        e.Graphics.DrawImage(imagePrint, 40, -70, imagePrint.Width, imagePrint.Height)
        e.Graphics.DrawString(LblPDV.Text, tableFont, Brushes.Black, 350, 129)
        e.Graphics.DrawString("NAME OF CLIENT", tableFont2, Brushes.Black, 70, 239)
        e.Graphics.DrawString("PURPOSE", tableFont2, Brushes.Black, 195, 239)
        e.Graphics.DrawString("DATE", tableFont2, Brushes.Black, 320, 239)
        e.Graphics.DrawString("TOTAL AMOUNT ", tableFont2, Brushes.Black, 450, 239)
        e.Graphics.DrawString("AMOUNT PAID", tableFont2, Brushes.Black, 570, 239)
        e.Graphics.DrawString("BALANCE", tableFont2, Brushes.Black, 695, 239)
 
12:     Do Until j = gv.ColumnCount
            e.Graphics.DrawString(gv.Item(j, i).Value.ToString, tableFont4, Brushes.Black, k, P)
            k = k + 125
            j = j + 1
        Loop
        k = 70
        P = P + 40
        j = 0
        i = i + 1
        If i < gv.RowCount Then GoTo 12
 
        e.HasMorePages = False
 
    End Sub
 
    Private Sub pprev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pprev.Click
        ' Make a PrintDocument and attach it to
 
        ' the PrintPreview dialog.
 
        dlgPrintPreview.Document = PreparePrintDocument()
 
        ' Preview.
 
        dlgPrintPreview.WindowState = FormWindowState.Maximized
 
        dlgPrintPreview.ShowDialog()
    End Sub