[mr_hso]

ممكن صورة للخطأ .

على كل حال هذا كود ليتماشى مع قواعد البيانات أكسيس :

PHP كود :

   Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        If MsgBox("هل تريد معاينة الطباعة", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            For i = 0 To DataGridView1.Rows.Count - 2
                Dim Frm As New RptForm
                Dim rpt As New RptCard
                Dim dt As New DataTable
                dt.Clear()
                dt = LoadDataTableAccdb("select * From TestTable where ID=" & DataGridView1.Rows(i).Cells(0).Value)
                rpt.SetDataSource(dt)
                Frm.CrystalReportViewer1.ReportSource = rpt
                Frm.CrystalReportViewer1.Refresh()
                Frm.Show()
            Next
        Else
            For i = 0 To DataGridView1.Rows.Count - 2
                Dim rpt As New RptCard
                rpt.SetDataSource(LoadDataTableAccdb("select * From TestTable where id=" & DataGridView1.Rows(i).Cells(0).Value))
                Dim prnt As New System.Drawing.Printing.PrinterSettings
                'prnt.PrinterName = "إسم الطابعة"'
                rpt.PrintToPrinter(prnt, New System.Drawing.Printing.PageSettings(prnt), False)
            Next
        End If
    End Sub
    Dim Con1 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Test.accdb;Jet OLEDB:Database Password=;")
    Public Function LoadDataTableAccdb(SqlStr As String) As DataTable
        Dim DT As New DataTable
        Dim da As New OleDb.OleDbDataAdapter(SqlStr, Con1)
        da.Fill(DT)
        Return DT
    End Function 


استاذي الفاضل asemshahen5
اشكرك من قلبي وادعوا الله لك بمزيد من العلم

الكود تمام شكرا لك