20-07-20, 07:58 PM
كنت عاوز اعرف اية فكرة موضوع الطباعة على 2 طابعة بنفس الوقت مثل المطاعم نسخة من طابعة تعطى للعميل ونسخة من طابعة اخرى تكون للمطبخ
(20-07-20, 08:11 PM)محمد كريّم كتب : [ -> ]كرر سطر أمر الطباعة مرتين
(20-07-20, 07:58 PM)ahmedramzyaish كتب : [ -> ]كنت عاوز اعرف اية فكرة موضوع الطباعة على 2 طابعة بنفس الوقت مثل المطاعم نسخة من طابعة تعطى للعميل ونسخة من طابعة اخرى تكون للمطبخ
![[صورة مرفقة: p_1662vfj1u1.png]](https://k.top4top.io/p_1662vfj1u1.png)
![[صورة مرفقة: p_1662f3gwu1.png]](https://b.top4top.io/p_1662f3gwu1.png)
![[صورة مرفقة: p_1662x3v6p1.jpg]](https://i.top4top.io/p_1662x3v6p1.jpg)
![[صورة مرفقة: p_1662s84651.jpg]](https://a.top4top.io/p_1662s84651.jpg)
System.ManagementPrivate Sub SurroundingSub()
Dim printerQuery = New ManagementObjectSearcher("SELECT * from Win32_Printer")
For Each printer In printerQuery.[Get]()
Dim name = printer.GetPropertyValue("Name")
Dim status = printer.GetPropertyValue("Status")
Dim isDefault = printer.GetPropertyValue("Default")
Dim isNetworkPrinter = printer.GetPropertyValue("Network")
Console.WriteLine("{0} (Status: {1}, Default: {2}, Network: {3}", name, status, isDefault, isNetworkPrinter)
Next
End Sub(20-07-20, 09:29 PM)DR.YASER كتب : [ -> ]هذا الموضوع يشرح طريقة الطباعة على طابعتين فى نفس الوقت
و هذا للطباعة على أكثر من طابعة فى نفس الوقت .. و من ميكروسوفت اضغط هنا
و مرفق أيضا سورس كود للطباعة لكنه فى نفس الوقت يعرض أكثر من طابعة مفعلة فى نفس الوقت ... هذه صور هذا المشروع و طريقة تصميمه :
و السورس كود بالمرفقات
... و التالى كود يقوم بالطباعة على أكثر من طابعة (هو كان سى شارب و حولته الى VB.NET )
you can use the
API to query themكود :System.Management
كود :Private Sub SurroundingSub()
Dim printerQuery = New ManagementObjectSearcher("SELECT * from Win32_Printer")
For Each printer In printerQuery.[Get]()
Dim name = printer.GetPropertyValue("Name")
Dim status = printer.GetPropertyValue("Status")
Dim isDefault = printer.GetPropertyValue("Default")
Dim isNetworkPrinter = printer.GetPropertyValue("Network")
Console.WriteLine("{0} (Status: {1}, Default: {2}, Network: {3}", name, status, isDefault, isNetworkPrinter)
Next
End Sub