منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طباعة التاريخ في الوورد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طباعة التاريخ في الوورد (/showthread.php?tid=28302)

طباعة التاريخ في الوورد - dell - 19-01-19

السلام عليكم ورحمة الله وبركاتة

أخواني عندي مثال الطباعة عن طريق الوورد .. المشكلة عند طباعة التاريخ يقلب التاريخ في مستند الفورم كما في الصور التالية

[attachment=20648]

[attachment=20647]

الحلول المستخدمة 

تغيير تنسيق تاريخ الجهاز ولاكن لافائدة

مالحل بارك الله فيكم .. المثال مرفق

RE: طباعة التاريخ في الوورد - حريف برمجة - 19-01-19

وعليكم السلام ورحمة الله وبركاته ،،

الحل تقلب تنسيق التاريخ وترسل البيانات للورد ثم ترجع التنسيق السابق .

الكود كامل :

كود :
TextBox1.Text = Format(CDate(TextBox1.Text), "dd/MM/yyyy")

       Dim oWord As New Word.Application
       Dim oDoc As Word.Document

       oWord.Documents.Open(FileName:=Application.StartupPath & "\sniper.doc")
       oWord.Documents("sniper.doc").Activate()

       oDoc = oWord.ActiveDocument
       oDoc.Bookmarks("Name").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("Name").Range.Text = TextBox1.Text

       oDoc.Bookmarks("Nantional").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("Nantional").Range.Text = TextBox2.Text

       oDoc.Bookmarks("Money").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("Money").Range.Text = TextBox3.Text

       oDoc.Bookmarks("Money2").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("Money2").Range.Text = TextBox4.Text

       oDoc.Bookmarks("R").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("R").Range.Text = TextBox5.Text

       oDoc.Bookmarks("S1").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("S1").Range.Text = TextBox6.Text

       oDoc.Bookmarks("S2").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("S2").Range.Text = TextBox7.Text

       oDoc.Bookmarks("asd").Range.Font.Color = Word.WdColor.wdColorBlue
       oDoc.Bookmarks("asd").Range.Text = TextBox8.Text

       oWord.WindowState = Word.WdWindowState.wdWindowStateMaximize
       oWord.Visible = True

       TextBox1.Text = Format(CDate(TextBox1.Text), "yyyy/MM/dd")


RE: طباعة التاريخ في الوورد - dell - 19-01-19

جاري التجربة جزاك الله خير الجزاء

RE: طباعة التاريخ في الوورد - حريف برمجة - 19-01-19

(19-01-19, 11:02 PM)dell كتب : جاري التجربة جزاك الله خير الجزاء

انا مجربه بالفعل قبل ارسل الكود ،، اللهّم آمين ولك بالمثل واكثر حتى ترضى

RE: طباعة التاريخ في الوورد - dell - 20-01-19

(19-01-19, 11:49 PM)حريف برمجة كتب :
(19-01-19, 11:02 PM)dell كتب : جاري التجربة جزاك الله خير الجزاء

انا مجربه بالفعل قبل ارسل الكود ،، اللهّم آمين ولك بالمثل واكثر حتى ترضى

فعلاً صحيح ممتاز بارك الله فيك  Heart Heart Heart Heart Heart Heart

طيب إذا كان ListView

PHP كود :
("dr.Item("dCo0") = Format(CDate(ListView2.Items.Item(j).SubItems(0).Text.ToString), "yyyy/MM/d

                        
سويت كذا يقول غير صالح تحويل date إلى سلسلة نصية ""

RE: طباعة التاريخ في الوورد - elgokr - 21-01-19

(20-01-19, 10:19 AM)dell كتب : فعلاً صحيح ممتاز بارك الله فيك  Heart Heart Heart Heart Heart Heart

طيب إذا كان ListView

PHP كود :
("dr.Item("dCo0") = Format(CDate(ListView2.Items.Item(j).SubItems(0).Text.ToString), "yyyy/MM/d

                        
سويت كذا يقول غير صالح تحويل date إلى سلسلة نصية ""
فى البداية كا قيمة التى تستخدمها فى الكود الخاص بك وهو
كود :
Format(CDate(ListView2.Items.Item(j).SubItems(0).Text.ToString), "yyyy/MM/d")

خلافاً انه ينقصه توضيح قيمة J كيف يتم تحديدها ولكن لا يهم الامر هنا
لان لا يوجد مشكلة فى ذلك
 لكن المشكلة تقع عندك على هذا الجزء
كود :
dr.Item("dCo0")

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