สั่ง Print ข้อมูลที่อยู่ใน ตาราง DataGridView ทำยังไงครับ VB 2010+Accress2007 ทำโปรเจคช่วยหน่อยนะครับ ส่งอีก 2วัน

 Imports System.Drawing.Printing  ก่อน  พอพูดถึงเรื่องการจะดึงข้อมูล มาแสดงใน จะต้องใช้ โค้ดตัวนี้ค่ะ

Next
            MessageBox.Show("บันทึกรายการขายเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

            If IsInstallprinter() = True Then  'ถ้ามีการติดตั้งเครื่องพิพม์แล้ว
                If prdig.ShowDialog = Windows.Forms.DialogResult.OK Then
                    prdoc.Print()

                End If
                MessageBox.Show("กรุณาติดตั้งเครื่อง print ก่อนสั่งพิมพ์เอกสาร", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
            clearalldata()
            Isvbook.Items.Clear()
            txtEmID.Focus()

        End If

    End Sub

Private Sub AnyString(ByVal g As Graphics, ByVal printString As String, ByVal xPos As Integer, ByVal yPos As Integer)
        Dim anypoint As New PointF(xPos, yPos)
        'วาดข้อความตามตัวแปรที่ส่งมา
        g.DrawString(printString, usefont, Brushes.Black, anypoint)
    End Sub

    Private Function isinstallPrinter() As Boolean
        'ฟังก์ชันทำหน้าที่ตรวจสอบว่ามีเครื่องพิมพ์ติดตั้งอยู่หรือไม่
        isinstallPrinter = False
        'ถ้าไม่มีการติดตั้ง
        If prdoc.PrinterSettings.PrinterName = "<no default printer>" Then
            isinstallPrinter = False
        Else
            isinstallPrinter = True
        End If

    End Function