Print datagrid eller fra access database

ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
      Handles mDoc.PrintPage
Hvorledes sættes et loop ind her for en dbgrid

    Dim xPos As Single = e.MarginBounds.Left
    Dim yPos As Single = e.MarginBounds.Top
    Dim lineHeight As Single = mFont.GetHeight(e.Graphics)

    With e.Graphics
      .DrawString("This is a test", _
        mFont, Brushes.Black, xPos, yPos)
      yPos += lineHeight
      .DrawString("This is another test", _
        mFont, Brushes.Black, xPos, yPos)
      xPos += .MeasureString("This is another test", mFont).Width
      .DrawString("Here's some more text", _
        mFont, Brushes.Black, xPos, yPos)
      xPos = e.MarginBounds.Left
    End With

lukker