كود اضافة طابعات كاشير على الشبكة

[ابوخليل]

3 ساعات مضت, eng aoff said:

استاذي العزيز @ابوخليلياريت لو مثال بسيط واكونلك ممنون جدا

 

هل تريد حلا كما اشار اخي ابو غفران بمعنى تختار الطابعة من القائمة قبل النقر على الزر

ام تريد حلولا اخرى ؟؟

مثلا عند اعداد الطلب يكون هناك حقلا  او مربع تحرير يتم اختيار رقم الطابق بدلا من اسم الطابعة ؟

تفضل هذا الحل يتم فيه اختيار اسم الطابعة

printerB.accdb

[Eng.Qassim]

2 hours ago, Eng.Qassim said:

جرب هذا ..كل الطابعات ستكون في مربع التحرير وعند اختيار الطابعة ستكون هي الفعالة

 

printerA.accdb 564 kB · 3 downloads

 

 

اسف لقد غيرت اسم زر الطباعة لاحقا.. فقط تغيير كود زر الطباعة الى btnPrint_Click

مع شديد اعتذاري

 

 

 

تم تعديل يوليو 16, 2021 بواسطه Eng.Qassim

[eng aoff]

Dim ptrthis As Printer

strip = "192.168.123.3" & strip
For Each ptrthis In Printers
 If ptrthis.Port = strip Then Exit For
 Next ptrthis
If ptrthis.Port = strip Then
Set Reports(strreport).Printer = ptrthis
Else
Call MsgBox(",,,notword,,,")
End If

 

اساتذتي الكرام اين المشكلة في الكود

[مسفر]

السلام عليكم 

هل الطابعات واحدة في جميع الطوابق يعني طابعة واحدة بمسمى واحد اقصد اسم الطابعة 

هل تعريف الطابعات  على الجهاز الرئيسي 

هل هي متصلة عن الطريق منفذ واحد 

هل لكل طابعة رقم IP  خاص بها 

 

[eng aoff]

استاذي العزيز 

سيرفر مع 4 حواسيب

متصلة عن طريق شبكة نتوورك داخلية

نعم لكل طابعة ip خاص بها 

 

قمت بتسمية الطابعات ووضع المسميات في الكود ولكن المشكلة عند اعطاء امر لطابعة معينة يتم اخذ setdefult وانقر مرة ثانية يتم طباعة الامر على الطابعة المحددة 

 

فقط اريد استدعاء الطابعات عن طريق ال ip ومشروعي متوقف على هذه فقط وياريت المساعدة باسرع وقت وجزاكم الله خيرا

@Eng.Qassim @ابوخليل @مسفر 

[مسفر]

مجرد فكرة أنا لا استطيع طبيق الفكرة لأني لا أملك إلا طابعة 

أنشئ جدول للطابعات تضع فيها رقم الطابعة  - اسم الطابعة وتسطيع استخدام كود معلمي أبو خليل في ذلك لحفظ اسم الطابعة في الحقل - وحقل iP - , وحقل رقم الطابق 

علاقة بين جدول الطوابق وجدول الطابعات  

جربتها عندي  فطبع على ما كان مربوطا بالطابق وعلى ما اخترت من الطابعات وبما أن هنالك IP  ربما تنجح الفكرة 

لو أرفقت القاعدة بالجداول والايبي ممكن نشوف حل ولكن نحن نعطي أفكارا للمجهول 

فجرب ما قلت لك  

[eng aoff]

ياريت لو تعطيني كود اسم الطابعة و ال ip

[د.كاف يار]

في ١٦‏/٧‏/٢٠٢١ at 21:52, Eng.Qassim said:

جرب هذا ..كل الطابعات ستكون في مربع التحرير وعند اختيار الطابعة ستكون هي الفعالة

 

printerA.accdb 564 kB · 11 downloads

 

في ١٨‏/٧‏/٢٠٢١ at 12:27, eng aoff said:

ياريت لو تعطيني كود اسم الطابعة و ال ip

هذا المثال لأخونا @Eng.Qassim

انصحك فيه سهل للغاية و تستطيع فهمه و تطبيقه في برنامجك لا تبحث عن حلول معقدة