الكود سيكون كالتالي داخل الحدث: PrintButton_Click
-----------------------------------------------------------------------------------

Private Sub PrintButton_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles PrintButton.Click




1

إنشاء متغير جديد من نوع WordPrintingSession
Dim MSPrintSession As New WordPrintingSession





2

'-- هذا الأمر لتشغيل برنامج الوورد + التأكد من ملف قالب الطباعة
'-- توجد طريقتين
----------
الأولى
جلب ملف قالب الطباعة من الـ Resources على شكل بايتات + إعطاء إسم لهذا الملف
If Not MSPrintSession.StartUp(My.Resources.TestPrintingTable, "MyTestTemplate1")

Then Exit Sub
----------
الثانية
إعطاء المسار الخاص بملف الطباعة من القرص الصلب
If Not MSPrintSession.StartUp("C:\WordTemplates\MyTestTemplate1.dot") Then Exit Sub












3

إنشاء متغير جديد من نوع WordPrintingSession.PrintJob
يتم إظافة جميع البيانات التي تود طباعتها في المتغير MyPrintJob
Dim MyPrintJob As New WordPrintingSession.PrintJob








4

في هذة المرحلة سيتم إظافة البيانات في المتغير MyPrintJob





AddText إظافة نص
----------------------------------------
سيتم إظافة النص في المكان الذي وضعة فيه الـ Bookmark
لإظافة نص في مكان محدد في مستند الطباعة بدلالة الـ Bookmark
إستخدم الطريقه AddText




'









AddImage إظافة صورة
----------------------------------------
MyPrintJob.AddImage(My.Resources.Personalphoto, "Personalphoto", _
. New WordPrintingSession.ImageMaximumSize(130, 130), _
. Word.WdLineStyle.wdLineStyleThinThickSmallGap, _
. Word.WdColor.wdColorBlack, _
. Word.WdLineWidth.wdLineWidth300pt)



أو بإمكانة وضع الصورة بدون إيطار وبدون تقييد في الحجم والإستغناء عن باقي البراميترز
MyPrintJob.AddImage(My.Resources.Personalphoto, "Personalphoto")















AddTable إظافة جدول
----------------------------------------

عند إظافة جدول نحتاج إلى عمل متغير جديد من نوع
WordPrintingSession.Table.ColumnOrder
الهدف منه لمعرفة الأعمدة المراد نقل البيانات منها
على سبيل المثال جدول يحتوي على 10 أعمدة في قاعدة البيانات
وأنت لا تحتاج إلى لأربعة فقط أو خمسة من هذة الأعمدة
ولا تريد إظهار الأعمدة الأخرى والتي تخص الرقم المسلسل
أو بعض الحقول التي تستخدمها لأغراض آخرى

نقوم الآن بعمل المتغير والتعريف بالأعمدة المطلوبة للطباعة فقط
Dim Tbl_ColmnOrder As New WordPrintingSession.Table.ColumnOrder
الآن نقوم بتعريف الأعمدة داخل هذا المتغير
مهم جداً إظافة الأعمد بالترتيب لأنها ستنقل إلى مستند الطباعة بنفس بالترتيب





لإظافة عامود يحتوي على بيانات نصية
Tbl_ColmnOrder.AddTextColumn("EmployeeName")
EmployeeName هو اسم العامود في الجدول في قاعدة البيانات





إذا كنت لا تريد إظافة بيانات في العامود فستخدم
()Tbl_ColmnOrder.AddEmptyColumn

إستخدم هذة الطريقة مع مراعات تسلسل الترتيب للعامود الذي تريدة خالياً من البيانات









لإظافة عامود يعتوي على صورة هناك طريقتان
----------
1 - لإظافة عامود يحتوي على صورة محفوظة على شكل بايتات
Tbl_ColmnOrder.AddImageColumn("EmployeePhoto", _
WordPrintingSession.Table.ColumnOrder.ColumnImageS ourceType.FromBytesArray, _
New WordPrintingSession.ImageMaximumSize(24, 24), _
Word.WdLineStyle.wdLineStyleNone, _
Word.WdColor.wdColorBlack, _
Word.WdLineWidth.wdLineWidth600pt)
-----------
2 - لإظافة عامود يحتوي على نص مسار الصورة في القرص الصلب
Tbl_ColmnOrder.AddImageColumn("EmployeePhoto", _
WordPrintingSession.Table.ColumnOrder.ColumnImageS ourceType.FromFilePathString, _
New WordPrintingSession.ImageMaximumSize(24, 24), _
Word.WdLineStyle.wdLineStyleNone, _
Word.WdColor.wdColorBlack, _
Word.WdLineWidth.wdLineWidth600pt)
------------
الفرق بين الطريقتين هو البراميتر الثاني وهو يحدد نوع مصدر الصور
WordPrintingSession.Table.ColumnOrder.ColumnImageS ourceType.FromBytesArray

WordPrintingSession.Table.ColumnOrder.ColumnImageS ourceType.FromFilePathString






بعد التعريف بالأعمدة
الآن نقوم بإظافة الجدول + المتغير الخاص بتعريف الأعمدة لهذا الجدول
MyPrintJob.AddTable(EmployeeTable, _ <------ System.Data.DataTable الجدول من نوع
Tbl_ColmnOrder, _ <------ المتغير الخاص بتعريف الأعمدة
"EmployeeTable_Head_BookmarkName", _ <----- الموجود في رأس الجدول Bookmark اسم الــ
"EmployeeTable_FirstRow_BookmarkName", _ <----- الموجود في أول حقل من السطر الأول Bookmark اسم الــ
True) <----- إذا أردت ترقيم العامود الأول True

لاحظ الصورة
لترقيم العامود الأول فقط ضع True
فقط إذا قمت بتصميم الجدول على أساس أن يكون العامود الأول للترقيم

إذا كان العامود الأول ليس للترقيم ضع False
لاحظ الصورة






بإمكانك إظافة أكثر من جدول بهذة الطريقة
تعريف الأعمدة ثم إظافة الجدول











لحذف الجدول الموجود في مستند الطباعة
إذا لم تتوفر بيانات لنقلها فية استخدم الطريقة
MyPrintJob.DeleteTable("EmployeeTable_Head_BookmarkName")






-----------
في النهاية قم بنداء هذا الأمر لبداء نقل البيانات
وإرسال ( التمغير MyPrintJob الذي أدخلنا فية جميع البيانات الرماد طباعتها ) في البراميتر
MSPrintSession.RepairPrintJob(MyPrintJob, WordPrintingSession.PrintingMode.PrintPrevew)

للعرض قبل الطباعة
WordPrintingSession.PrintingMode.PrintPrevew
للطباعة مباشرتاً
WordPrintingSession.PrintingMode.PrintOut
----------


إنتهاء إظافة الكود الخاص بالطباعة

End Sub

----------