19-08-16, 07:36 PM
19-08-16, 08:44 PM
نعم ينطبق إذا كنت تعرف هيكلية كود C#
19-08-16, 08:50 PM
سألت سؤال محد رد علي والسؤال هو
اريد ان اطبع الصورة التي في الورم picture1 الى الوورد في خانة bookmark بالكود مثل ما فعلنا بالتكست بوكس
ولا اريد ان اعطيه مسار للصوره حتى يطبعها لي على الوورد اريد فقط التي موجودة في الفورم
فهل احصل على هذا الكود
اريد ان اطبع الصورة التي في الورم picture1 الى الوورد في خانة bookmark بالكود مثل ما فعلنا بالتكست بوكس
ولا اريد ان اعطيه مسار للصوره حتى يطبعها لي على الوورد اريد فقط التي موجودة في الفورم
فهل احصل على هذا الكود
19-08-16, 08:59 PM
احفظها في المجلد المؤقت IO.Path.GetTempFileName واعطيه المسار.
19-08-16, 09:23 PM
ممكن الطريقة ؟
لكن لا اريد الصورة تبقى في مسار البرنامج بعد الطباعة
الا يوجد طريقة آخرى
لكن لا اريد الصورة تبقى في مسار البرنامج بعد الطباعة
الا يوجد طريقة آخرى
19-08-16, 09:36 PM
أنا قلت المجلد المؤقت يعني ما راح تكون في مسار البرنامج وهذا المجلد يقوم الويندوز بحذف محتوياته تلقائية عندما يعلم بأن ما فيه لم يعد أي برنامج يحتاجه
هذا الطريقة
أنا ليست لدي فكرة عن مسألة الوورد، ولكن وضعت حل لمشكلة وجود الصورة في أداة عن طريق استغلال حفظها للحصول على مسار الصورة
هذا الطريقة
PHP كود :
Dim fn As String = IO.Path.GetTempFileName
Me.PictureBox1.Image.Save(fn)
' fn = هنا حيكون مسار الصورة
أنا ليست لدي فكرة عن مسألة الوورد، ولكن وضعت حل لمشكلة وجود الصورة في أداة عن طريق استغلال حفظها للحصول على مسار الصورة
19-08-16, 09:58 PM
شكرا لك عزيزي
وبارك الله فيك وفي علمك
على العموم ماضبط معي
انا لم استخدم اي كود من اكواد شرح الأخ عبدالله الدوسري او اي كلاس
ما عدى الرفرينس اللي هو Interop.Word.dll فقط وبنيت الكود هكذا :
وبارك الله فيك وفي علمك
على العموم ماضبط معي
انا لم استخدم اي كود من اكواد شرح الأخ عبدالله الدوسري او اي كلاس
ما عدى الرفرينس اللي هو Interop.Word.dll فقط وبنيت الكود هكذا :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Static wd1 As Word.Application
Static wd1Doc As Word.Document
wd1 = New Word.Application
wd1.Visible = True
wd1Doc = wd1.Documents.Add(Application.StartupPath & "\DocFiles\DocPrint.dotx") 'path of do
With wd1Doc
.Bookmarks.Item("txtFname").Range.Text = txtFname.Text
.Bookmarks.Item("txtLname").Range.Text = txtLname.Text
.Bookmarks.Item("txttel").Range.Text = txttel.Text
.Bookmarks.Item("CombCity").Range.Text = CombCity.Text
.Bookmarks.Item("CombGroub").Range.Text = CombGroub.Text
.Bookmarks.Item("txtPosts").Range.Text = txtPosts.Text
.Bookmarks.Item("txtPoints").Range.Text = txtPoints.Text
' هنا اريد كود الصوره مثل البقية
End With
wd1 = Nothing
wd1Doc = Nothing
End Sub20-08-16, 12:55 PM
(19-08-16, 09:58 PM)tryold كتب : [ -> ]شكرا لك عزيزي
وبارك الله فيك وفي علمك
على العموم ماضبط معي
انا لم استخدم اي كود من اكواد شرح الأخ عبدالله الدوسري او اي كلاس
ما عدى الرفرينس اللي هو Interop.Word.dll فقط وبنيت الكود هكذا :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Static wd1 As Word.Application
Static wd1Doc As Word.Document
wd1 = New Word.Application
wd1.Visible = True
wd1Doc = wd1.Documents.Add(Application.StartupPath & "\DocFiles\DocPrint.dotx") 'path of do
With wd1Doc
.Bookmarks.Item("txtFname").Range.Text = txtFname.Text
.Bookmarks.Item("txtLname").Range.Text = txtLname.Text
.Bookmarks.Item("txttel").Range.Text = txttel.Text
.Bookmarks.Item("CombCity").Range.Text = CombCity.Text
.Bookmarks.Item("CombGroub").Range.Text = CombGroub.Text
.Bookmarks.Item("txtPosts").Range.Text = txtPosts.Text
.Bookmarks.Item("txtPoints").Range.Text = txtPoints.Text
' هنا اريد كود الصوره مثل البقية
End With
wd1 = Nothing
wd1Doc = Nothing
End Sub
أخي الكريم أنت استخدمت مكتبة microsoft.office.interop.word.dll
وهذه لا أظن أنها تدعم الصور والجداول من البرنامج للوورد
هي تدعم فقط النصوص على حد علمي
وهذه لا أظن أنها تدعم الصور والجداول من البرنامج للوورد
هي تدعم فقط النصوص على حد علمي
20-08-16, 07:37 PM
يا tryold،
الموضوع أساساً حول شرح الأستاذ عبدالله الدوسري، وأيضا هذا قسم مقالات VB.NET.
وطالما طلبك مختلف المفروض تفتح موضوع خاص بك في قسم أسئلة VB.NET وتعرض اللي توصلت له وتذكر النقطة اللي توقفت عندها.
الموضوع أساساً حول شرح الأستاذ عبدالله الدوسري، وأيضا هذا قسم مقالات VB.NET.
وطالما طلبك مختلف المفروض تفتح موضوع خاص بك في قسم أسئلة VB.NET وتعرض اللي توصلت له وتذكر النقطة اللي توقفت عندها.
20-08-16, 11:35 PM
أسف
يعطيكم العافيه
يعطيكم العافيه