منتدي أرض الرياضيات
بسم الله الرحمن الرحيم
أهلاً بك زائراً لمنتدي أرض الرياضيات
وندعو الله تعالى أن ينال الموقع إعجابكم وتستفيدون من الموضوعات .
كما أننا نسعد بموضوعاتكم وآرائكم من خلال المنتدى
مـعــــــــاً ....... نحو عقل ومجتمع مفكر
أيمن محمد شحاتة


منتدى يهتم بكل ما يخص الرياضيات - شارك برأيك - نحو مجتمع مفكر
 
الرئيسيةالتسجيلدخول
دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر
المواضيع الأخيرة
» كتابة المعادلات بسهولة في الوورد
الثلاثاء يناير 26, 2016 3:17 am من طرف عامرمرجان

» طلبتكم ابي الحل الصحيح لـ هالاسئلة
الإثنين مايو 11, 2015 12:10 am من طرف tarekismeal

» الآلة الحاسبة
الأحد مارس 01, 2015 11:06 pm من طرف أيمن محمد شحاتة

» الطباعة في الفيجوال بيسك
الجمعة يونيو 13, 2014 6:02 pm من طرف أيمن محمد شحاتة

» ضرب رقمين × رقمين بصورة سريعة
الأربعاء مارس 27, 2013 10:16 pm من طرف shymaa labib

» مساعدة منكم جزاءكم الله خير ضروري
السبت يناير 26, 2013 11:35 am من طرف أيمن محمد شحاتة

» موقع أنا أحب الرياضيات
الإثنين أبريل 02, 2012 11:08 am من طرف أيمن محمد شحاتة

» الوحدة الأولى ( درس المعدل ) - شرح
الثلاثاء فبراير 07, 2012 7:09 pm من طرف ابوخليل

» طلب ضروررري
السبت ديسمبر 24, 2011 12:01 am من طرف ام عمر

بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
أفضل 10 أعضاء في هذا المنتدى
أيمن محمد شحاتة
 
المعلم المبدع
 
amlmuslem
 
احمد محرم فؤاد
 
مروه دهب
 
عبير
 
ام حارثث
 
tarekismeal
 
helmy helmy
 
النمر111
 
أنت الزائر رقم:
الوقت كالسيف


Digital Clock الوقت كالسيف


شاطر | 
 

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

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


ذكر عدد الرسائل : 105
الموقع : أرض الرياضيات
العمل/الترفيه : مدير فريق النجم الفضي للبرمجيات
نقاط : 46038
تاريخ التسجيل : 26/07/2008

مُساهمةموضوع: الطباعة في الفيجوال بيسك   الأربعاء يونيو 02, 2010 8:11 am

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


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

[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 يتم طباعة النموذج

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

وهكذا نكون قد انتهينا من هذه المقدمة للطباعة وسنقوم بتحضير موضوع " الطباعة المتقدمة في الفيجوال بيسك"
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://mathland.ahlamontada.net
أيمن محمد شحاتة
مدير المنتدي
مدير المنتدي


ذكر عدد الرسائل : 105
الموقع : أرض الرياضيات
العمل/الترفيه : مدير فريق النجم الفضي للبرمجيات
نقاط : 46038
تاريخ التسجيل : 26/07/2008

مُساهمةموضوع: وهذه هي طريقة إضافة اداة مربع الحوار   الأربعاء يونيو 02, 2010 2:13 pm

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

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

تظهر لك النافذة الآتية : اختر منها Microsoft Comman Dialog Control 6.0

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

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


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://mathland.ahlamontada.net
فجر الغد
عضو جديد
عضو جديد


ذكر عدد الرسائل : 1
نقاط : 26986
تاريخ التسجيل : 06/01/2012

مُساهمةموضوع: رد: الطباعة في الفيجوال بيسك   الجمعة يناير 06, 2012 11:37 pm

بارك الله فيك
وجزاك كل خير
الرجوع الى أعلى الصفحة اذهب الى الأسفل
ندوش
عضو جديد
عضو جديد


انثى عدد الرسائل : 1
نقاط : 19171
تاريخ التسجيل : 10/06/2013

مُساهمةموضوع: رد: الطباعة في الفيجوال بيسك   الإثنين يونيو 10, 2013 7:42 am


-
بارك الله فيك
وجزاك كل خير
افدتني
كثيرا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
adnan71
عضو جديد
عضو جديد


ذكر عدد الرسائل : 1
نقاط : 13906
تاريخ التسجيل : 27/05/2014

مُساهمةموضوع: رد: الطباعة في الفيجوال بيسك   الثلاثاء مايو 27, 2014 6:26 pm

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


ذكر عدد الرسائل : 105
الموقع : أرض الرياضيات
العمل/الترفيه : مدير فريق النجم الفضي للبرمجيات
نقاط : 46038
تاريخ التسجيل : 26/07/2008

مُساهمةموضوع: رد: الطباعة في الفيجوال بيسك   الجمعة يونيو 13, 2014 5:54 pm

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

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

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

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

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


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

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



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



Adodc1.CommandType = adCmdText



Adodc1.Refresh 

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://mathland.ahlamontada.net
أيمن محمد شحاتة
مدير المنتدي
مدير المنتدي


ذكر عدد الرسائل : 105
الموقع : أرض الرياضيات
العمل/الترفيه : مدير فريق النجم الفضي للبرمجيات
نقاط : 46038
تاريخ التسجيل : 26/07/2008

مُساهمةموضوع: رد: الطباعة في الفيجوال بيسك   الجمعة يونيو 13, 2014 6:02 pm

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


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

عمل التقارير


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

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://mathland.ahlamontada.net
 
الطباعة في الفيجوال بيسك
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدي أرض الرياضيات :: منتديات الكمبيوتر :: البرمجة بلغة الفيجوال بيسك-
انتقل الى: