20-07-20, 07:58 PM
كنت عاوز اعرف اية فكرة موضوع الطباعة على 2 طابعة بنفس الوقت مثل المطاعم نسخة من طابعة تعطى للعميل ونسخة من طابعة اخرى تكون للمطبخ
(20-07-20, 08:11 PM)محمد كريّم كتب : [ -> ]كرر سطر أمر الطباعة مرتين
(20-07-20, 07:58 PM)ahmedramzyaish كتب : [ -> ]كنت عاوز اعرف اية فكرة موضوع الطباعة على 2 طابعة بنفس الوقت مثل المطاعم نسخة من طابعة تعطى للعميل ونسخة من طابعة اخرى تكون للمطبخ
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
(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