كيف أطبع صفحة بها معلومات من قاعدة البيانات

أظن أن أسهل طريقة هي بـ string concatenation أي أنه عندي اسم شخص سأضع في الحدث PrintPage للكائن PrintDocument :

dim s as string = "الإسم : "+ textbox1.text
e.Grphics.DrawString(s, ...)

طبعا يجب أن يكون عندي متغير اسمه مثلا textY حيث سيمكنني من حساب البيكسل التالي الذي سأقوم برسم السطر التالي ابتداء منه. ارتفاع السطر يمكن حسابه من كائن Font المستعمل في رسم النصوص عبر الدالة GetHeight.

تحياتي...

طيب مشكور على الأجابة لكن مافي طريقة بحيث مثلا أنا أجهز قالب بالفراغات ومن ثم تكون عملية ملئ الفراغات آلية مثلا أجهز صفحة HTML جاهز بفراغتها وأعبئها آليا ومن ثم أطبعها؟ مشكور على التجاوب.

يمكن فعل ذلك و لكن في هذه الحالة ستتم الطباعة عن طريق برنامج خارجي كـ IE أو وورد.

تحياتي...

ماعندي مشكلة ممكن أستخدم بارمتر لتمرير أمر الطباعة ولكن هل لديك خلفية كيف يمكنني تعديل ملفات HTML آليا؟

ومشكور على التفاعل.

لتعديل كود HTML آليا, نفترض أن لنا موديل الصفحة التالي :

<table>
<tr>
<th>الإسم :</th>
<th>#name#</th>
</tr>

<tr>
<th>تاريخ الإزدياد :</th>
<th>#birthday#</th>
</tr>

<tr>
<th>العنوان :</th>
<th>#adress#</th>
</tr>

<tr>
<th>الهاتف :</th>
<th>#phone#</th>
</tr>

</table>

نقوم باستعمال الدالة Replace للكائن string بالشكل التالي :

dim s as string = "htm_document_code"
s = s.Replace("#name#", textBox1.Text)
s = s.Replace("#birthday#", dateTimePicker1.Value.ToString())
...

بعدها نكتب محتوى s داخل ملف و نمرره للبرنامج الخارجي للطباعة.

Shell("""C:\Program Files\Microsoft Office\Office12\winword.exe"" test.htm /mFilePrintDefault")

فمثلا الكود أعلاه يفتح الملف test.htm على الوورد مع تشغيل الطباعة عند الفتح أوتوماتيكيا.

تحياتي...

مشكور أخوي محمد رضى على تفاعلك وهذا الذي كنت أريده بالضبط ولكن كيف أفتح الصفحة بفرض أن القالب محفوظ عندي على الهارديسك؟؟

سؤال آخر وإعذرني إذا كثرت عليك بالأسئلة هل أستطيع أن أنفذ أمر الطباعة بدون أن يظهر الورد؟؟

وهل أستطيع التعديل على ملفات وورد؟؟؟

مشكور أخوي.

هذا ما استطعت الوصول إليه. نافذة الوورد تظهر و تختفي بعد بدأ الطباعة.

أولا قم بزيادة Reference لـ Microsoft Word 12.0 Object Library إلى المشروع.

ثانيا, قم بزيادة السطرين التاليين في أعلى الموديل الذي به كود الطباعة.

Imports Word = Microsoft.Office.Interop.Word
Imports System.Runtime.InteropServices

و أخيرا الكود الذي يفتح وورد في الخلفية للطباعة فقط :

		Dim wordApp As Word.Application = CreateObject("Word.Application")
		Dim wordDoc = wordApp.Documents.Add("C:\Users\emmr.rida\Desktop\test.htm")
		wordDoc.PrintOut()
		wordApp.Documents.Close()
		wordApp.Quit()

تحياتي...

شكرا أخوي على تفاعلك وفعلا اطلعت على احدى المواضيع ووجدت بها نفس ما كتبت ولكن بتوسع أكثر الرابط

http://www.java2s.com/Tutorial/VB/0440__Wi...orddocument.htm

ولكن ما لم أجده كيف أضيف أو أعدل صورة لملف وورد؟؟؟

وشكرا أخوي سأحاول أن أبحث عن الإجابة وإن وجدت شيئ سأضعه هنا.

مشكور.