+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : الطباعة على الوورد من خلال الفيجوال بطريقة مبسطة (/showthread.php?tid=4445)
الصفحات:
1
2
RE: الطباعة على الوورد من خلال الفيجوال بطريقة مبسطة - سعود الشامان - 01-04-18
ألف شكر لكم , وأنتم ثنائي رائع
أستأذئنكم بهذه الإضافة
يمكن كتابة الكود بصيغة أخرى
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim fileName As String = "C:\Users\سعود الشامان\source\repos\Print2\Print2\bin\Debug\test6.dotx"
Dim myApp1 As New Application
Dim myDoc1 As New Document
Me.WindowState = FormWindowState.Minimized
myDoc1 = myApp1.Documents.Open(fileName)
myDoc1.Activate()
Dim bk As Bookmarks = myDoc1.Bookmarks
bk("dtSubject").Range.Text = DateTimePicker1.Value.Date
bk("Full").Range.Text = TextBox1.Text
bk("Name").Range.Text = TextBox2.Text
End Subشرح الطريقة بالفيديو من الاستاذ خالد السعداني
إرسال البيانات من الفيجوال بيسك إلى ميكروسوفت وورد
https://youtu.be/andDjzYHHC4