[حريف برمجة]

مرحبا مره أخرى ،،

نكمل موضوع الطباعة كما وعدتكم ،،

1- إضافة فورم 2 للمشروع لعرض التقرير عليه .

   

   


2- ادراج داتاسيت ثم ادراج داتاتيبل لربطه بالتقرير .

   

   

   

4- تصميم التقرير وربطه بالداتاسيت .

كلك يمين على اسم المشروع ثم اختيار Add ثم اختيار New Item...

   

   

   

   

   

---

أخيراً كود الطباعة :

استيراد مكتبة عارض التقرير :

   


دبل كلك على بوتن الطباعة والصق الكود التالي :

كود :

Form2.ReportViewer1.Reset()

       Form2.ReportViewer1.LocalReport.ReportEmbeddedResource = "XMLAPPPRINT.Report1.rdlc"

       Dim ds As New DataSet

       If TextBox1.Text <> "" Then
           'طباعة سجل واحد بدلالة رقم السجل الموجود في التكست بوكس1
           Dim xd As New XmlDocument()
           xd.Load(Application.StartupPath & "\XmlTest.xml")

           Dim nod As XmlNode = xd.SelectSingleNode("/DataBase1/Table1[@ID=" & TextBox1.Text & "]")

           'التأكد من رقم السجل موجود او غير موجود
           If nod IsNot Nothing Then      'رقم السجل موجود
               Dim nodereader = New XmlNodeReader(nod)
               ds.ReadXml(nodereader, XmlReadMode.Auto)

           Else                        'رقم السجل غير موجود

               MsgBox("السجل غير موجود", 64, "XML Example")
               Cleartxt()

               Exit Sub
           End If

       ElseIf TextBox1.Text = "" Then
           'إذا كان التكست بوكس 1 فارغ يطبع الكل
           Dim filePath As String = Application.StartupPath & "\XmlTest.xml"
           ds.ReadXml(filePath)
       End If


       'تكملة كود الطباعة
       Dim DataSource As New ReportDataSource("DataSet1", ds.Tables(0).DefaultView)

       Form2.ReportViewer1.LocalReport.DataSources.Clear()
       Form2.ReportViewer1.LocalReport.DataSources.Add(DataSource)

       Form2.ReportViewer1.RefreshReport()

       Form2.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
       Form2.ReportViewer1.ZoomMode = ZoomMode.PageWidth
       Form2.ReportViewer1.RefreshReport()

       Form2.Show()

شكل التقرير والتنسيق يمكنك التعديل بما تراه مناسب كالتالي :

   








هنا تصدير التقرير بالأحرف الإنجليزية :

   


Excel

   

Word

   

Pdf

   


هنا تصدير التقرير بالإحرف العربية :

   

اكسيل

   

وورد

   

بي دي اف

   





بالتوفيق للجميع ،،

اللهّم اجعل هذا العمل خالصاً لوجهك الكريم .