[asemshahen5]

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

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

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