تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال عن كود طباعة
#1
السلام عليكم ورحمة الله وبركاته


أخواني عندما اريد ان أنقل محتوى ListView للورد لكي اطبعه يكون الكود هاكذا

كود :
[/SIZE] With .AddTable()                Dim Table2 As New Data.DataTable




                Table2.Columns.Add("dCo0") 'تاريخ بداية الرخصة
                Table2.Columns.Add("dCo1") 'يوم
                Table2.Columns.Add("dCo2") 'مدة الرخصة


                If Not ListView2.Items.Count = 0 Then
                    For A As Integer = 0 To ListView2.Items.Count - 1


                        Dim dr As DataRow = Table2.NewRow
                        If Not IsDate(ListView2.Items.Item(A).SubItems(0).Text) = False Then dr.Item("dCo0") = Format(CDate(ListView2.Items.Item(A).SubItems(0).Text), "dd/MM/yyyy") 'تاريخ بداية الرخصة
                        dr.Item("dCo1") = ListView2.Items.Item(A).SubItems(1).Text   'يوم
                        dr.Item("dCo2") = ListView2.Items.Item(A).SubItems(2).Text   'مدة الرخصة
                        Table2.Rows.Add(dr)
                    Next
                End If




                .DataTable = Table2
                '-------------------------------------
                .IsFirstColumnAutoNumber = False
                .TableHeadBookMarkName = "الرخص"
                .FirstRowBookMarkName = "بداية_صف_الرخص"
                .DeleteTableIfNoData = True
                '-------------------------------------
                .AddTextColumn("dCo0")
                .AddTextColumn("dCo1")
                .AddTextColumn("dCo2")
            
                '-------------------------------------

            End With[SIZE=4]



ولاكن السؤال هنا أذا كان لدي DataGridView كيف أعدل الكود لكي ينقل محتوى DataGridView إلى الورد لكي أطبعه


ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
تفضل هذا مثال على الطباعة على الورد ومن ضمنه الداتا قريد


الملفات المرفقة
.rar   نسخ من التعامل م&#.rar (الحجم : 144.48 ك ب / التحميلات : 151)
الرد }}}
تم الشكر بواسطة:
#3
شكراً لك اخي الكريم على هذه البادرة الطيبة

تحياتي
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم