[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

من قراءة الكود : يبدو أن الخطأ موجود عند الـ DataTable 



أظن أنه سيعمل إذا إستبدلت جزء الكود الذي لديك بالجزء التالي:

كود :

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

بالتوفيق ..