logo in datattable - نسخة قابلة للطباعة

كود :
       Dim dt As New DataTable

        With dt





            .Columns.Add("k2")

            .Columns.Add("k3")



            .Columns.Add("k4")

            .Columns.Add("k5")

            .Columns.Add("k6")



            .Columns.Add("k7")







            .Columns.Add("k8")

            .Columns.Add("k9")

            .Columns.Add("k10")

            .Columns.Add("k11")





            .Columns.Add("k14")

            .Columns.Add("k16")

            .Columns.Add("k17")

            .Columns.Add("k18")

            .Columns.Add("k19")

            .Columns.Add("k20")

            .Columns.Add("k21")

            .Columns.Add("k22")

            .Columns.Add("k23")





            .Columns.Add("k25")

            .Columns.Add("id")

            .Columns.Add("name")

            .Columns.Add("Expr1")

            .Columns.Add("k24")







        End With



        Try



       



        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        Dim date1 As String = DTP.Value.Date



        For I As Integer = 0 To dgv_bill.Rows.Count - 2



            'dt.Rows.Add(date1, TXT_iD.Text, K2.Text, K3.Text, K4.Text, k5.Text, txt_usere.Text)

            dt.Rows.Add(txt_rmz.Text, txt_name.Text, k1.Text, k3.Text, k7.Text, My.Settings.k1, My.Settings.k2, My.Settings.k3, My.Settings.k4, My.Settings.k5, dgv_bill.Rows(I).Cells(3).Value, dgv_bill.Rows(I).Cells(4).Value, dgv_bill.Rows(I).Cells(5).Value, dgv_bill.Rows(I).Cells(7).Value, dgv_bill.Rows(I).Cells(8).Value, dgv_bill.Rows(I).Cells(9).Value, dgv_bill.Rows(I).Cells(10).Value, dgv_bill.Rows(I).Cells(11).Value, date1, TextBox1.Text, TextBox2.Text, txt_valhsm.Text, TextBox4.Text)

        Next



        Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument

        rptDoc = New Crystalbill

        rptDoc.SetDataSource(dt)

        FRM_PRINT.CrystalReportViewer1.ReportSource = rptDoc

        FRM_PRINT.ShowDialog()



        FRM_PRINT.Dispose()