[سؤال] مساعد في انشاء دالة متغيرة لعرض التقرير

كود :

   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.'