[mr_hso]

السلام عليكم ايها الزملاء الاعزاء
كلعادة كلما تعثرة في شي الجاء الى منتدانا المحترم هذا
وفقكم الله لمساعدة الاعضاء قليلي الخبرة مثلي

لدي مشروع بالـ Visual Studio 2015
مرتبط بقاعدة بيانات Access

لدي مجموعة كمبيالات

لكل كمبيالة كود خاص بها وتاريخ استحقاق

اقوم بعمل تقرير للكمبيالات المستحقة خلال الفترة من 2019/9/1 الى 2019/9/30 مثلاً وتظهر النتيجة فى   DataGridView

ولدي ريبورت مصمم بـ CrystalReport على هيئة خطاب يتم ارساله للعميل استعجال لدفع الكمبيالة

اريد الاتي

عمل زر اسفل الــ  DataGridView يقوم بطباعة كل الكمبيالات التى ظهرة فى الــ DataGridView 
مستخدماً التقارير التى صممتها
حيث تكون الطباعة دفعة واحدة وكل خطاب على حدي



شكرا لكم جميعاً

---

سبحان الله وبحمده ..... سبحان الله العظيم

[mr_hso]

ده شرح مبسط اللي انا عاوزه 

[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 = LoadDataTable("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(LoadDataTable("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
    Public Function LoadDataTable(SqlStr As String) As DataTable
        Dim DT As New DataTable
        Dim da As New SqlClient.SqlDataAdapter(SqlStr, Con)
        da.Fill(DT)
        Return DT
    End Function 


[mr_hso]

(05-10-19, 05:31 AM)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 = LoadDataTable("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(LoadDataTable("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
    Public Function LoadDataTable(SqlStr As String) As DataTable
        Dim DT As New DataTable
        Dim da As New SqlClient.SqlDataAdapter(SqlStr, Con)
        da.Fill(DT)
        Return DT
    End Function 


مشكور اخي الفاضل   asemshahen5  على مجهودك ووقتك
لكن حين لصقت الكود فى المشروع الخاص بي وعدلت الجزء لاول ظهر خطاء فى الجز الثاني 
هل لاني استخدم قاعدة بيانات اكسس

الجزء الذي به الخطاء

كود :

       Dim DT As New DataTable
       Dim da As New SqlClient.SqlDataAdapter(SqlStr, Con)
       da.Fill(DT)
       Return DT
   End Function

جزاك الله خيرا

[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 


[mr_hso]

(05-10-19, 05:59 AM)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 


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

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