(21-07-19, 09:03 PM)aljzazy كتب : تأكد من فورمات التاريخ للجهاز او الكمبيوتر

(21-07-19, 11:52 PM)سامي محمد كتب : وعليكم السلام ورحمة الله وبركاته

تفضل الكود بعد التعديل

كود :

 Dim PrintJob As New MSO.Printing.PrintJob
        With PrintJob
            '##################################################################################
            ' --------------------- بيانات الموظف ------------------------------------
            '==================================
            ' .AddText(Label1.Text, "Label1") 'رقم سجل الموظف
            .AddText(TextBox27.Text, "TextBox27") 'اسم الموظف 
            .AddText(TextBox2.Text, "TextBox2") 'الرقم 
            .AddText(TextBox3.Text, "TextBox3") 'الرتبة
            .AddText(TextBox4.Text, "TextBox4") ' الوظيفة المثبت عليها
            .AddText(TextBox5.Text, "TextBox5") 'الوظيفة المكلف بها
            .AddText(TextBox6.Text, "TextBox6") '   الوحدة
            .AddText(TextBox7.Text, "TextBox7") 'التخصص
            .AddText(TextBox8.Text, "TextBox8") 'رقم السجل المدني
            .AddText(TextBox9.Text, "TextBox9") 'رقم الدورة
            .AddText(CDate(TextBox21.Text).ToString("dd-MM-yyyy"), "TextBox21") 'تاريخ التعيين
            .AddText(CDate(TextBox11.Text).ToString("dd-MM-yyyy"), "TextBox11") 'تاريخ  الترقية لرتبتة الحالية
            .AddText(TextBox17.Text, "TextBox17") 'الحالة الأجتماعية
            .AddText(TextBox13.Text, "TextBox13") 'عدد الأبناء - أولاد
            .AddText(TextBox15.Text, "TextBox15") 'عدد الأبناء - بنات
            .AddText(TextBox14.Text, "TextBox14") 'رقم الجوال
            .AddText(CDate(TextBox62.Text).ToString("dd-MM-yyyy"), "TextBox62") 'تاريخ الميلاد
            .AddText(TextBox12.Text, "TextBox12") 'أختبار اللياقة - درجة
            .AddText(TextBox63.Text, "TextBox63") 'النسبة %
            .AddText(TextBox54.Text, "TextBox54") 'التحليل %
            .AddText(TextBox56.Text, "TextBox56") 'الرماية %
            ' ================================================='جدول الاجازاة
            With .AddTable()
                Dim Table1 As New Data.DataTable
                Table1.Columns.Add("dCo0") 'تاريخ بداية الاجازة
                Table1.Columns.Add("dCo1") 'يوم
                Table1.Columns.Add("dCo2") 'مدة الاجازة
                Table1.Columns.Add("dCo3") 'تاريخ نهاية الاجازة
                Table1.Columns.Add("dCo4") 'يوم
                Table1.Columns.Add("dCo5") 'تاريخ المباشرة
                Table1.Columns.Add("dCo6") 'نوعها 
                If Not ListView2.Items.Count = 0 Then
                    For j As Integer = 0 To ListView2.Items.Count - 1
                        Dim dr As DataRow = Table1.NewRow
                        dr.Item("dCo0") = ListView2.Items.Item(j).SubItems(0).Text   'يوم
                        dr.Item("dCo1") = ListView2.Items.Item(j).SubItems(1).Text   'يوم
                        dr.Item("dCo2") = ListView2.Items.Item(j).SubItems(2).Text   ' 'مدة الاجازة
                        dr.Item("dCo3") = CDate(ListView2.Items.Item(j).SubItems(3).Text).ToString("dd-MM-yyyy")   'يوم
                        dr.Item("dCo4") = ListView2.Items.Item(j).SubItems(4).Text 'يوم
                        dr.Item("dCo5") = CDate(ListView2.Items.Item(j).SubItems(5).Text).ToString("dd-MM-yyyy")   'يوم
                        dr.Item("dCo6") = ListView2.Items.Item(j).SubItems(6).Text   'يوم
                        Table1.Rows.Add(dr)
                    Next
                End If


                .DataTable = Table1
                '-------------------------------------
                .IsFirstColumnAutoNumber = False
                .TableHeadBookMarkName = "الاجازاة"
                .FirstRowBookMarkName = "بداية_صف_الاجازاة"
                .DeleteTableIfNoData = True
                '-------------------------------------
                .AddTextColumn("dCo0")
                .AddTextColumn("dCo1")
                .AddTextColumn("dCo2")
                .AddTextColumn("dCo3")
                .AddTextColumn("dCo4")
                .AddTextColumn("dCo5")
                .AddTextColumn("dCo6")
                '-------------------------------------
            End With

        End With

---

والافضل طلاما انك تستخدم ملف وورد جاهز ان تقوم بتعبأة الجدول عن طريق الخلايا بدرا من البكمارك فهي اسهل بكثير

---

آسف نسيت التارخ الاول في الجدول الثاني

كود :

  dr.Item("dCo0") = CDate(ListView2.Items.Item(j).SubItems(0).Text).ToString("dd-MM-yyyy")   'يوم