الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج بسيط

بدأه YASSER ALAWI في 27 مايو 2014 · 1 رد · 465 مشاهدة · في Microsoft Visual Basic.NET
احتاج مساعدتكممساعدتكم
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخوتي 
ارجو المساعدة 
لدي طابعتين على كومبيوتري كل واحدة اطبع فيها على حدا . فعندما احتاج الطابعة الاولى اقوم 
بالنقر عليها كلك ايمن واضغط set default printer كما موضح بالصورة A . وعندما احتاج الطباعة 
على الطابعة الثانية افعل نفس الشيء للطابعة الثانية . 
احتاج الى برنامج بسيط يتكون كما موضح من button عدد 2 كما موضح بالصورة B . فعند الضغط
على button الطابعة رقم 1 يقوم بجعل الطابعة الاولى هي الطابعة الdefault و عند الضغط
على button الطابعة رقم 2 يقوم بجعل الطابعة الثانية هي الطابعة الdefault 

وجزاكم الله خيرا

 

myIFKB.jpg

 

ofrMU9.jpg

#2

وعليكم السلام ورحمة الله

 

استخدم الكود التالي على الزر الأول لتعيين الطابعة HP Deskjet 1510 series كطابعة افتراضية

Dim WsNetObject As Object

WsNetObject= Microsoft.VisualBasic.CreateObject("WScript.Network")
WsNetObject.SetDefaultPrinter("HP Deskjet 1510 series")

واستخدم الكود التالي علر الزر الثاني لتعيين الطابعة Brother DCP-129C كطابعة افتراضية

Dim WsNetObject As Object

WsNetObject= Microsoft.VisualBasic.CreateObject("WScript.Network")
WsNetObject.SetDefaultPrinter("Brother DCP-129C")

تأكد من أسماء الطابعات في الجهاز لديك وقم بتغيير الاسم حسب الكود أعلاه

 

تحياتي

تم تعديل هذه المشاركة بواسطة فيجولي في 27 مايو 2014 في 21:01

مواضيع مشابهة