مشكلة فى انشاء تقرير - نسخة قابلة للطباعة

كود :

Sub print_()

        Dim dt_print As New DataTable

        With dt_print

            .Columns.Add("imp_date")

            .Columns.Add("imp_name")

            .Columns.Add("code_")

            .Columns.Add("in_")

            .Columns.Add("out_")

            .Columns.Add("not_")

            .Columns.Add("rased_")

        End With

        For i As Integer = 0 To dgv_imp_taf.Rows.Count - 1

            If dgv_imp_taf.Rows(i).Cells(0).Value <> Nothing Then

                dt_print.Rows.Add(dgv_imp_taf.Rows(i).Cells(0).Value, dgv_imp_taf.Rows(i).Cells(2).Value, dgv_imp_taf.Rows(i).Cells(3).Value, dgv_imp_taf.Rows(i).Cells(4).Value, dgv_imp_taf.Rows(i).Cells(5).Value, dgv_imp_taf.Rows(i).Cells(6).Value, dgv_imp_taf.Rows(i).Cells(7))

            End If

        Next

        Dim REPORT As New Crys_imp_taf

        REPORT.SetDataSource(dt_print)

        TQ.CrystalReportViewer1.ReportSource = REPORT

        REPORT.Refresh()

        REPORT.SetParameterValue(2, imp_name.Text)

        'REPORT.SetParameterValue(1, MADFOE_.Text)

        REPORT.SetParameterValue(3, Val(TextBox8.Text))

        'REPORT.SetParameterValue(4, Val(txtcrited.Text))

        'REPORT.SetParameterValue(5, Val(txtbaky.Text))

        REPORT.SetParameterValue(1, DateTimePicker1.Value)

        REPORT.SetParameterValue(2, DateTimePicker2.Value)

        TQ.Show()

    End Sub

ولكم منى جزيل الشكر

كود :

If dgv_imp_taf.Rows(i).Cells(0).Value <> Nothing Then

    dt_print.Rows.Add(dgv_imp_taf.Rows(i).Cells(0).Value, dgv_imp_taf.Rows(i).Cells(1).Value, dgv_imp_taf.Rows(i).Cells(2).Value, dgv_imp_taf.Rows(i).Cells(3).Value, dgv_imp_taf.Rows(i).Cells(4).Value, dgv_imp_taf.Rows(i).Cells(5).Value, dgv_imp_taf.Rows(i).Cells(6))



End If