[خالد كامل1]

احبتى فى الله 

السلام عليكم ورحمه الله

لدى تقرير مفضل للمورد يظهر التقرير بهذا الشكل

ولكن عند الطباعه يظهر بهذا الشكل

المشكله فى خلية الرصيد 

مع العلم خانة الرصيد تحسب فى الاستعلام ولا تحفظ 

ساريكم الكود الذى استعملته فى الطباعه

كود :

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

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

[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

بالتوفيق ..

[خالد كامل1]

للاسف لم يتم حل المشكلة

[تركي الحلواني]

أرفق مثال لحل المشكلة

[خالد كامل1]

احبتى فى الله تم حل المشكله بارك الله فيكم

على تعبكم معى