استشارة مستعمجلة بالطباعة

اخي السيد major والسادة الاعضاء

كنت قد وضعت هذا السؤال في غير قسم لعغم خبرتي بعد، كوني جديد .... ورغم اني جديد كتير // وخجلان منكم ان تكون اول مشاركة هي سؤال .... لكن للضرورة أحكام... نظرا للمشكلة العويصة التي تواجهني وهي

عندي برنامج صغير وكل شي فيه تمام عدا مشكلة الطباعة // والبرنامج يعمل مع DATAGRIDVIEW مرتبطةبـ DATASET ضمن المشروع نفسه ، اي لا يوجد ارتباط للبنامج باي داتا خارجية حيث يقرأ المعلمومات من ملفات بنظام BINARY ثم يضعها في الداتا غريد ... والمشكلة فقط الطباعة حيث اريد ان احول المعلومات من DATAGRID الى CRYSTAL REPORT لاظهرها .. وتظهر لي رسالة خطأ عندما يصل الى report.setdatasource المبينة في الكود المبين ادناه حيث تظهر رسالة invalis report file path

وهذا الكود الذي استعملته ... واذا كان عندكم طريقة اخرى فعالة فيا ريت ....

Dim DsName As String = "NewDs"

Dim DS As New DataSet(DsName)

Dim Rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument

Dim DsTable As New DataTable("Print")

Dim Count_Col As Short

Dim Count_Row As Short

Dim ColumnsFound As Short

For Count_Col = 0 To 8

If DGV_statement.Columns(Count_Col).Visible Then

DsTable.Columns.Add(DGV_statement.Columns(Count_Col).HeaderText)

ColumnsFound += 1

End If

Next

For Count_Row = 0 To DGV_statement.RowCount - 1

DsTable.Rows.Add()

For Count_Col = 0 To ColumnsFound

DsTable.Rows(Count_Row).Item(Count_Col) = _

DGV_statement.Item(Count_Col, Count_Row).Value

Next

Next

DS.Tables.Add(DsTable)

Rpt.SetDataSource(DS)

Frm_Preview.CrystalReportViewer_print.ReportSource = Rpt

Frm_Preview.CrystalReportViewer_print.Show()

Frm_Preview.CrystalReportViewer_print.Activate()

نشامى يا شباب ... اخوكم مزنوء