منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [سؤال] خطاء طباعة التاريخ عكس في الوورد
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[سؤال] خطاء طباعة التاريخ عكس في الوورد
dell غير متصل
عضو مبدع
المشاركات : 57
المواضيع 15
الإنتساب : May 2017
السمعة : 1
الشكر: 168
تم شكره 84 مرات في 41 مشاركات
#1
21-07-19, 08:14 PM (آخر تعديل لهذه المشاركة : 21-07-19, 08:22 PM {2} بواسطة dell.)
السلام عليكم ورحمة الله وبركاتة

أخواني عند طباعة التاريخ في الوورد يظهر عكس .. الصورة توضح 




المشروع بالمرفقات

تحياتي


الملفات المرفقة
.rar   1.rar (الحجم : 3.28 م ب / التحميلات : 48)
البحث
الرد }}}
تم الشكر بواسطة:
aljzazy غير متصل
عضو نشيط
*
المشاركات : 342
المواضيع 20
الإنتساب : May 2018
السمعة : 75
الشكر: 32
تم شكره 857 مرات في 338 مشاركات
#2
21-07-19, 09:03 PM
تأكد من فورمات التاريخ للجهاز او الكمبيوتر
البحث
الرد }}}
تم الشكر بواسطة: dell
dell غير متصل
عضو مبدع
المشاركات : 57
المواضيع 15
الإنتساب : May 2017
السمعة : 1
الشكر: 168
تم شكره 84 مرات في 41 مشاركات
#3
21-07-19, 09:16 PM
(21-07-19, 09:03 PM)aljzazy كتب : تأكد من فورمات التاريخ للجهاز او الكمبيوتر

الفورمات صحيح ولكن هو يعكس التاريخ فقط في الطباعة من جدول list view
البحث
الرد }}}
تم الشكر بواسطة:
سامي محمد غير متصل
عضو مبدع
المشاركات : 137
المواضيع 2
الإنتساب : Dec 2017
السمعة : 40
الشكر: 45
تم شكره 384 مرات في 134 مشاركات
#4
21-07-19, 11:52 PM (آخر تعديل لهذه المشاركة : 21-07-19, 11:57 PM {2} بواسطة سامي محمد.)
وعليكم السلام ورحمة الله وبركاته

تفضل الكود بعد التعديل
كود :
 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")   'يوم
البحث
الرد }}}
تم الشكر بواسطة: asemshahen5 , dell , ابراهيم ايبو , ابراهيم ايبو
dell غير متصل
عضو مبدع
المشاركات : 57
المواضيع 15
الإنتساب : May 2017
السمعة : 1
الشكر: 168
تم شكره 84 مرات في 41 مشاركات
#5
26-07-19, 11:19 AM
(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")   'يوم



ياخي الله يسعدك مضبوط 100% تسلم يالغالي  Heart Heart Heart Heart Heart Heart Heart Heart
البحث
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 95 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 309 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 657 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 404 24-01-24, 10:12 PM
آخر رد: annagui
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 583 09-01-24, 08:41 PM
آخر رد: new_programer
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 450 09-01-24, 08:40 PM
آخر رد: new_programer
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 277 29-12-23, 10:44 PM
آخر رد: Kamil
  التاريخ الهجرى mmaalmesry 9 1,091 07-12-23, 01:32 PM
آخر رد: kebboud
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 443 03-12-23, 02:40 AM
آخر رد: abu_hisham7
Heart [C#.NET] حول خطأ في فرز عامود التاريخ عندما تكون إحدى الخانات فارغة بلال بلال 3 344 16-11-23, 12:02 AM
آخر رد: بلال بلال

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


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