الطباعة في الفيجوال بيسك

بسم الله الحمن الرحيم

سوف نتعلم في هذا الدرس مبادئ طباعة النماذج في الفيجوال بيسك (من خلال مشروع بسيط)
][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

[b]أولاً: الأدوات المطلوبة

1- نموذج Form به البيانات التي تريد طباعتها .
2- زر الطباعة Command .
3- أداة المربع الحواري CommonDialog

ثانياً: طريقة العمل

1- بعد تصميم النموذج وكتابة البيانات فيه ، نضيف زر Command ، ومربع حواري CommanDialog ويتم تعديل خاصية Caption للـCommand لتكون " طبــاعة التقرير"
كما هو موضح بالصورة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

2- نقوم بكتابة الكود كما هو موضح بالصورة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

والكود كالتالي

Private Sub Command1_Click()
' تجاوز الأخطاء إن وجدت
On Error Resume Next
' إظهار مربع حوار الطباعة ( لاختيار اعدادات الطباعة )
CommonDialog1.ShowPrinter
' طباعة النموذج
Form1.PrintForm
End Sub

3- مرحلة التجربة
قم بتجربة البرنامج والتي ستكون نتيجته كالتالي
- بدء تشغيل البرنامج والضغط على زر طباعة التقرير

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

2- ظهور مربع حوار الطباعة ، اختر الطابعة التي تريد طباعة البيانات من خلالها

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

وهنا قد اختارنا طابعة وهمية تسمى PDF Factory ( تصدر البيانات إلى ملف PDF )

بالضغط على زر Ok يتم طباعة النموذج

وهذه هي معاينة الطابعة لما سيتم طباعته

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

وهكذا نكون قد انتهينا من هذه المقدمة للطباعة وسنقوم بتحضير موضوع " الطباعة المتقدمة في الفيجوال بيسك"

وهذه هي طريقة إضافة أداة مربع الحوار CommanDialog

1 - اضغط CTRL+T من لوحة المفاتيح ( أو من قائمة Project اختر Components )

تظهر لك النافذة الآتية : اختر منها Microsoft Comman Dialog Control 6.0
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

ثم اضغط OK ستجد أنها أضيفت في شريط الأدوات

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

بارك الله فيك
وجزاك كل خير

-
بارك الله فيك
وجزاك كل خير
افدتني كثيرا

السلام عليكم .. اخي عندي موظفين اريد ان اطبع سجلات محدده فيه .. علما ان القاعده عامله في اكسس وتم الربط في الجول بيسك بواسظة الادادا adodc كيف اطبع سجلات محدده لواسطة زر كومندو واكون شاكرا لك ...

الأخ الكريم adnan71 اعتذر أولاً على تأخير الرد ولكنها مشاكل النت التي لا تنتهي

بالنسبة لطباعة سجلات محددة من قاعدة البيانات لها أكثر من طريقة ، وأكثرها انتشاراً هو عمل بحث عن هذه السجلات ثم عرضها ومن ثم طباعتها

كمثال: طباعة الموظفين الجدد المعينين بسنة 2014

نقوم بعمل بحث عن الموظفين الذين تم تعيينهم في 2014 في حقل التاريخ

بهدها يتم عرض النتائج في الفورم ومن ثم طباعتها

كود البحث باستخدام adodc1

الكود:: Dim X As String
s = InputBox("بحث", , "ادخل الاسم المراد البحث عنه")

Adodc1.RecordSource = "select * from Table1 where namee Like '" & (X) & "'"

Adodc1.CommandType = adCmdText

Adodc1.Refresh

الطريقة الثانية : هي عمل التقارير وطباعة التقرير وهذه الطريقة تعتبر مفيدة جداً

وهذا رابط لكتاب يشرح عمل التقارير باستخدام الداتا ريبورت

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

أتمنى أن أكون قد وفقت .....