| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
اكثر المحتويات زيارة
الدوال في الاكسل (14,836 مشاهده)
تعريف الفن التشكيلي: (14,801 مشاهده)
ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) (10,761 مشاهده)
دروس في الأوفيس الأكسس - Access0- (10,235 مشاهده)
أنواع العلاقات وطريقة الربط بين الجداول. (10,165 مشاهده)
شرح طريقة استعمال الأوتلوك مع بريد الهوتميل (7,342 مشاهده)
تغيير لغة واجهة التطبيق من عربي الى انجليزي وبالعكس لـ Windows-based applications (7,336 مشاهده)
ما هي شبكة الانترنت: (6,452 مشاهده)
الدرس الثالث : بعض تطبيقات الدوال في اكسل (6,207 مشاهده)
تعريف الاستعلام وطريقة عرضه في آكسس، أنواع الاستعلامات، نافذة تحديد الاستعلام! (6,194 مشاهده)
اضافه صوت ونص لخلفيه في باور بوينت (6,183 مشاهده)
المنظور الفوتوغرافي Perspective Drawing (6,131 مشاهده)
ما هو برنامج الاكسل -00 (5,994 مشاهده)
أنشئ قاعدة بياناتك التي ستستند إليها في تعلم طريقة ربط الجداول والاستعلامات. (5,752 مشاهده)
الدرس الثاني : عمل خلفيات ملونة لشرائح (5,534 مشاهده)
نظام التشغيل (Windows) (5,531 مشاهده)
الدرس الأول : عمل شريحة في البوربوينت (5,432 مشاهده)
الدرس الثاني: بعض الحيل لتسهيل برنامج اكسل (5,426 مشاهده)
لإجراء العمليات الحسابية (4,946 مشاهده)
مقدمة عامة حول الاكسل وحيل خاصة بالاكسل0-- (4,914 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (4,871 مشاهده)
كيفية تنصيب Turbo C++ وتشغيل برنامج بلغة السي عليه!- (4,830 مشاهده)
vالدرس الأول : عمل شريحة في البوربوينت (4,820 مشاهده)
الدرس الثالث: كيفية عمل مراحل انتقالية للشرائح (4,810 مشاهده)
اضافة الحركات للصور والنصوص (4,746 مشاهده)
جديد مواد مع عشوائي
التحويل التلقائي للحروف ل- ل- ه إلى اسم الجلالة0---- (2,361 مشاهده)
النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0---النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0--- (1,776 مشاهده)
ضبط خيارات اللغة فى الـ Microsoft Word0--- (2,190 مشاهده)
استخدام لوحة المفاتيح في الـ Word0---- (2,383 مشاهده)
إضافة كلمة سر إلي ملفات الورد دون استخدام برامج0--- (2,320 مشاهده)
دمج المراسلات0-- (1,430 مشاهده)
وضع صورة كخلفية للنص0-- (1,870 مشاهده)
السماح للمستخدمين بتعديل أجزاء من ملف وورد محمي (Word2003)0--- (1,447 مشاهده)
كتابة الأرقام الكسرية ورموز المعادلات0-- (2,057 مشاهده)
درس كامل عن الدمج السهل من لوحة المفاتيح ف0-ي برنامج الـ Word (1,612 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (4,871 مشاهده)
دورة الأكسيس : الدرس الرابع : العلاقات0---- (2,661 مشاهده)
أساسيات في Access0--0 (2,376 مشاهده)
تصميم تقرير لطباعة البيانات0---- (2,233 مشاهده)
تصميم نموذج استعراض البيانات0--تصميم نموذج استعراض البيانات0-- (1,993 مشاهده)
تصميم نموذج إدخال البيانات0--- (2,240 مشاهده)
إنشاء قوائم خاصة باستخدام الماكرو(1)0-- (1,928 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (2)0-- (1,440 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (1)0- (1,510 مشاهده)
استعلامات SQL في Access - تعديل الجداول وإضافة الحقول0- (2,102 مشاهده)
استعلامات SQL في Access - تحديث البيانات الجدولية0-- (1,713 مشاهده)
الاستعلامات الإجرائية -4 (استعلام الحذف)0--- (1,169 مشاهده)
الاستعلامات الإجرائية -2 (استعلام الإلحاق)0--- (1,315 مشاهده)
تصميم تقرير لطباعة الإجمالي0--- (1,420 مشاهده)
استعلامات التحديد Select Query مع أمثله (1)0--- (1,876 مشاهده)
|
الطباعة باستخدام Print Object
إن الطباعة من الأساسيات في برامجك فأي برنامج يحتاج إلى الطباعة
في هذا الدرس سوف نقدم مثالاً بسيطاً لطباعة نص دون إستخدام توابع API
أولاً يجب أن يكون لديك طابعة إفتراضية مثبتة ولو لم يكن لديك طابعة أضف طابعة وهمية للتجريب . عن طريق لوحة التحكم -> الطابعات -> إضافة طابعة
ثانياً عليك تجهيز الفورم بمايلي:
1 - أداة النصوص Text1
2 - الصندوق List1
3 - زر أمر Command1
هذه الأدوات التي عليك إضافتها
الأن نبداً بالعمل :
1- أنقر نقرتين فوق الفورم وأكتب الشيفرة التالية في الحدث Load للفورم
Dim a As Integer
For a = 0 To Printers.Count -1
List1.AddItem Printers(a).DeviceName
Next
End Sub |
شرح الكود :
هذا الكود يقوم بوضع قائمة بأسماء الطابعات المثبتة لديك في الصندوق List1 لتتمكن من إختيار الطابعة التي تريد الطباعة عليها.
2- أنقر نقرتين فوق List1 وأكتب الكود التالي :
Set Printer = Printers(List1.ListIndex) |
هذا الكود يقوم بتحديد الطابعة من المجموعة المثبتة لديك
3-الأن نبدأ بعملية الطباعة :
أكتب النص الذي تريد طباعته في Text1
أضف الكود التالي إلى زر Command1:
Printer.FontSize = 40
Printer.Print Text1.text
Printer.EndDoc |
في السطر الأول تحديد حجم الخط
في السطر الثاني إرسال النص إلى الطابعة
في السطر الثالث بدء الطباعة الفعلية
هذه عملية الطباعة البسيطة بإستخدام Print Object ولاكن هناك عمليات طباعة ضخمة بتوابع API
سيكون لنا حديث خاص عنها
أمل أن يكون هذا الدرس قد حقق الفائدة للمبتدئين في الفيجوال بيسك
|
مرات القرائه: 862 مرة/مرات
