[alaa.alnaser91]

مرحبا
احاول ان اعمل دالة لعدم تكرار كتابة كود عرض التقرير ولاكن لاأعرف اين الخطأ

كود :

   Sub Preview_report1(sqlstr As String, ReportName As String)
       'تعريف متغير لتحدد نوع الطابعة
       Dim prnt As New System.Drawing.Printing.PrinterSettings
       'تعريف متغير لجلب اسم التقرير
       Dim cryRpt As New ReportDocument
       'جلب الأتصال للتقرير
       Dim adp = New SqlClient.SqlDataAdapter(sqlstr, SqlConn)
       Dim ds = New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       'التأكد من وجود بيانات
       If dt.Rows.Count = 0 Then
           MsgBox("لايوجد أي بيانات لعرضها في التقرير")
           Exit Sub
       End If

       cryRpt.SetDataSource(dt)
       'جلب اسم الطابعة الافتراضية
       prnt.PrinterName = My.Settings.Printer

       cryRpt.PrintToPrinter(prnt, New System.Drawing.Printing.PageSettings(prnt), False)

   End Sub

وكود الإستدعاء في الفورم كالتالي 

كود :

       Preview_report1("select * From PosRpt where PosInvoice='" & PosInvoice.Text & "'", "CrystalReport1")

ولكن يظهر لدي الخطأ التالي :

كود :

CrystalDecisions.CrystalReports.Engine.LoadSaveReportException: 'Invalid report file path.'