20-07-20, 11:01 PM
(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
الف الف شكر

![[صورة مرفقة: 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)