تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من المنتدى القديم - كائن الطباعة للمبتدئين
#1
كاتب الموضوع : أحمد جمال

هي مجموعة من الدروس والمقالات التي كانت موجودة منذ مدة في المنتديات ولكنها ضاعت مع ضياع قاعدة البيانات ، هذه واحدة منها :
اعداد : الأستاذ تركي العسيري .

عنوان الموضوع : كائن الطابعة (للمبتدئين)

كائن الطابعة Printer Object

الطباعة من المزايا الضرورية التي لابد من توفيرها في برامجك الجدية. بعيدا عن اجراءات API المعقدة، يوفر لك Visual Basic كائن الطابعة Printer Object والذي من اسمه يعرف غرضه. الهدف من هذه المقالة هو تقديم كائن الطابعة.

قبل التوغل في اعضاء كائن الطابعة اود ان اتطرق الى مجموعة الطابعات Printers Collection. هذه المجموعة تمثل جميع الطابعات الموجودة في الجهاز الحالي. لاتستطيع تعديل مزايا هذه الطابعات بشكل مباشر. لابد من تحديد الطابعة وتعيينها للاستخدام ومن ثم تبدأ عملية تعديل المزايا والخصائص.

معلومات حول الطابعة:
والان ابدأ بالتحدث عن كائن الطابعة والذي يوفر الكثير من الخصائص التي تعود بمعلومات حول الطابعة. كاسم الطابعة DeviceName او اسم المشغل DeriverName ورقم البوابة Port المركب عليها الطابعة.

كود :
Dim X As Integer
' استخدام المجموعة
' Printers Collection
For X = 0 To Printers.Count -1
Print Printers(X).DeviceName
Next


المزيد من الخصائص، خاصية ColorMode التي تعرف عن طريقها ما اذا كانت الطابعة داعمة للالوان او لا. والخاصية PrinterQuality والتي تعود بنوع الكثافة النقطية وجودة الطباعة. الخصائص الاخرى تجدها بشكل مفصل في مكتبة MSDN.

تحديد الطابعة
اذا فالمجموعة Printers Collection تمثل جميع الطابعات الموجودة في الجهاز. وبكل تأكيد تود من المستخدم تحديد الطابعة التي يود استخدامها. كل ما عليك هو توفير كود مناسب لتعيين الطابعة الموجودة في المجموعة Printers الى الكائن Printer. هذا مثال لعمل ذلك عن طريق استخدام الاداة List Box:

كود :
Private Sub Form_Load ()
Dim X As Integer
' استخدام المجموعة
' Printers Collection
For X = 0 To Printers.Count -1
List1.AddItem Printers(X).DeviceName
Next
End Sub
Private Sub List1_Click ()
' تحديد الطابعة من المجموعة
Set Printer = Printers(List1.ListIndex)
End Sub

والان كل ما عليك هو استخدام الكائن Printer لتعديل الخصائص.

الطباعة الفعلية
عملية الطباعة الطباعة الفعلية لا تتطلب مقالة خاصة لان جميع طرق المخرجات الموجودة في كائن النموذج Print، Line، Cirlce الخ... مدعومة في كائن الطابعة. استخدمها بنفس الطريقة. وبعد ان تنتهي من ارسال البيانات الى الطباعة، استخدم الطريقة EndDoc لبدء عملية الطباعة الفعلية:

كود :
Printer.FontSize = 40
Printer.Print "[url=http://www.vb2top.com/]www.vb2top.com[/url]"
' ابدأ عملية الطباعة
Print.EndDoc

الطريقة KillDoc تقوم بانهاء عملية الطباعة، والطريقة NewPage واضح من اسمها انها لغرض استخدام صفحة جديدة.

خاتمة:

اختصت هذه المقالة للمبتدئين للتوضيح لهم طريقة استخدام كائن الطابعة Printer. نفس اسلوب طرق المخرجات المتبع مع نافذة النموذج استخدمه لكائن الطابعة. حاول اعطاء المستخدم حرية في اختيار الطابعة خاصة اذا كان جهازه يحتوي على اكثر من طابعة.
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين ) + تطبيقات جاهزة للاستخدام Ahmad Jawad 6 7,496 02-06-16, 11:45 AM
آخر رد: CLARO
  من المنتدى القديم - للمبتدئين كل ما تريد معرفته عن الوقت والتاريخ والأدوات المتعلقة RaggiTech 1 3,657 06-03-15, 04:29 AM
آخر رد: abulayth
  درس سريع - للمبتدئين التعامل مع App.path لتثبيت المسار RaggiTech 1 3,090 14-10-12, 02:18 PM
آخر رد: RaggiTech
  للمبتدئين - كيفية عمل Setup بالبرنامج المرفق مع الفيجوال بيسك RaggiTech 0 8,304 14-10-12, 02:00 PM
آخر رد: RaggiTech
  من المنتدى القديم - الأخطاء البرمجية RaggiTech 0 4,737 14-10-12, 01:57 PM
آخر رد: RaggiTech
  من المنتدى القديم - السلسلة الذهبية ... تمرير باميترات إلى داخل البرنامج من الويندوز RaggiTech 1 2,517 14-10-12, 01:54 PM
آخر رد: RaggiTech
  من المنتدى القديم - تشغيل الملفات RaggiTech 0 2,377 14-10-12, 01:47 PM
آخر رد: RaggiTech
  من المنتدى القديم - عمل امتداد ملفات خاص بك RaggiTech 1 2,788 14-10-12, 01:46 PM
آخر رد: RaggiTech
  من المنتدى القديم - كيفية عمل Setup باستخدام Setup Factory RaggiTech 0 2,817 14-10-12, 01:43 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم