ظهور جدول DATATABLE - نسخة قابلة للطباعة

كود :
 If labell.Text = "" Then

            MessageBox.Show("الرجاء ادخال اسم المنتج")

            Exit Sub

        End If

        If Qty.Text = "" Then

            MessageBox.Show("الرجاء ادخال الكمية")

            Exit Sub

        End If

        'Dim DT As New DataTable

        dt.Clear()

        Dim da As New SqlDataAdapter("select *from PRODUCTS where label='" & labell.Text & "'", Module1.con)

        da.Fill(dt)

        If dt.Rows.Count > 0 Then

            MessageBox.Show("اسم منتج موجود مسبقا ")

        Else

            Dim DR = dt.NewRow

            DR!label = labell.Text

            DR!label_product = label_product.Text

            DR!UNIT = UNIT.Text

            DR!date = DateTimePicker1.Value

            DR!Qty = Val(Qty.Text)

            DR!TKLFA = Val(TKLFA.Text)

            DR!price = Val(Price.Text)

            DR!total = Val(tot(Qty.Text, TKLFA.Text))

            dt.Rows.Add(DR)

            Dim cmdb As New SqlCommandBuilder(da)

            da.Update(dt)

            MessageBox.Show("تم الحفظ بنجاح", "الاضافة", MessageBoxButtons.OK, MessageBoxIcon.Information)

            fill_DGV()

            cl()

        End If