[خالد كامل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

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