اختيار الطابعة بشرط

[gamalin]

______________.rarالاخ تامر وهادي وعلي وباقي مشرفي القسم جزاكم الله خيرا

لدي ملف به زر للطباعة والترحيل ولكنه يطبع فواتير اكثر من شركة

وقمت بتوصيل اكثر من طابعة على الجهاز وتم تسمية كل طابعة باسم الشركة ( طابعات دوت ماتريكس والورق رول وثابت بكل طابعة )

لذا اود بتغيير اسم الشركة في الخلية t9 في الملف المرفق من مصر للصناعة او العكس تتغير الطابعات تبعا لذلك فاذا تم اختيار كلمة مصر من القائمة يتم الطباعة على الطابعة مصر

والعكس صحيح

فهل يمكن ذلك بكود يتم اضافته على كود الطباعة

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

ارجو التكرم والاهتمام بالامر

[gamalin]

الاخ هادي برجاء بحث هذا الامر

[gamalin]

الاختامر والاخوة الافاضل برجاء الادلاء بدلوكم في هذا الامر للاهمية

[gamalin]

مشاركة اختيار الطابعة

[omar elhosseini]

الاخ gamalin

اكتب اسماء الطابعات بالضبط المراد التعامل معها وتحديد مع اى اختيار من القائمة المنسدلة ستعمل الطابعة

مع ملاحظة ان اسماء الطابعات لابد ان تكون نفسها الموجودة فى قائمة (statrt / printers and faxes)

تحياتى

[gamalin]

______________.rarالاخ تامر اشكر اهتمامك

مرفق ملف نص به 3 اشطر الاول اسم الجهاز الذي سيكون عليه الملف و ملحق به الطابعتان

والسطران الثاني والثالث ( مصر و الوايلي-صناعة ) هما اسماء الطابعتان بالتوالي والاولى ستعمل مع مصر بالاختيار والثانية مع الصناعة او اعمل على مثال افتراضي وسوف اقوم بتعديلة ان امكن وجزاك الله خيرا

[omar elhosseini]

الاخ gamalin

شاهد المرفق

الكود صح 100%

ولكن اذا اعطى الكود رسالة خطأ و ذهب بك الى اسم الطابعة عند اختيار DEBUG

فى هذه الحالة يجب اخذ اسماء الطابعات يدويا عن طريق VAB

تحياتى

______________2.rar

تم تعديل ديسمبر 11, 2006 بواسطه tameromar

[gamalin]

______________2.rarالاخ تامر جزاك الله كل خير في البداية اتوجه اليك بالتحية والشكر للاهتمام

ثانيا لصعوبة الوصول للجهاز الموصوع عليه الطابعتان حاليا

حاولت ان اجرب على جهازي وهو على شبكة داخلية وموصول بالعديد من الطابعات حاولت نسخ الاسم واستبداله بالتي بالكود لم يقبل واعتقد لان هذه الطابعات يوجد باسمها on ثم اسم الجهاز

علما بان اسم الطابعات على الجهاز الاخر hp1320 فقط

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

وهل يتم كتابة اسماء الطابعات ام مسارها مثلا ..... \Mamdouh\\

ملاحظة اسماء الطابعات كام تظهر لدي بقائمة الطابعات والفاكسات الموصولة لدي موجودة بالكود

[omar elhosseini]

الاخ gamalin

اخى المرفق عبارة عن فيديو

اتبع نفس الخطوات لتحصل على الاسماء الكاملة للطابعات

تحياتى

المرفق

http://www.officena.net/team/tameromar/oma...therPrinter.rar

[omar elhosseini]

الاخ gamalin

تحياتى

تم التعديل على الملف المرسل فى الشيت 2 وتعديل كود الطباعة ولكن بالنسبة لاسماء الشركات من الشيت 1

لم استطع تحديد اسماء الشركات .

لم استطع رفع الملف وسأحاول غدا مرة اخرى ان شاء الله

تحياتى

[gamalin]

اسماء الشركات يأتي دوما في f1 في sheet 1 ستجد شركة مدستار مصر مكتوبة

واشكر لك اهتمامك

[gamalin]

بسم الله الرحمن الرحيم

وبه نستعين

اتوجه بالشكر والعرفان لاخي تامر وذلك على تواصله معي وتعاونه في حلة مشكلة اختيار الطابعة

واتوجه الى جميع مشرفي المنتدى ورواده والى اخي تامر بالاعتذار عن تأخري في وضع الكود وذلك لظروف خارجة عن ارادتي

واسمحوا لي بوضع كود اخي تامر وعذرا فاللغة في الاوفيس لدى بها مشكلة لذا الحروف العربية لا تظهر بجودة وسأضع الكود مرة اخرى غدا او اذا سمح اخي تامر في وضعه بالشكل المحترف اللائق بهذا الكود

واليكم الكود

Dim Defprinter As String

Dim Test

'

MyPrinter1 = "ÇßÊÈ ÇÓã ÇáØÇÈÚÉ 1"

MyPrinter2 = "ÇßÊÈ ÇÓã ÇáØÇÈÚÉ 2"

'

Company_1 = "ÇßÊÈ ÃÓã ÇáÔÑßÉ 1"

Company_2 = "ÇßÊÈ ÃÓã ÇáÔÑßÉ 2"

Company_3 = "ÇßÊÈ ÃÓã ÇáÔÑßÉ 3"

'Company_4 = "ÇßÊÈ ÃÓã ÇáÔÑßÉ 4"

'

Defprinter = Application.ActivePrinter

MyCompany = Sheets("Sheet2").Range("C30")

Select Case MyCompany

Case Company_1

' Application.ActivePrinter = MyPrinter1 ' ***åÐÇ ÇáÓØÑ ãËÇá***

Application.ActivePrinter = "ÍÓÈ ÇÓã ÇáÔÑßÉ ÈÏæä ÚáÇãÉ ÇáÊäÕíÕ(MyPrinter1 Çæ MyPrinter2)"

Case Company_2

Application.ActivePrinter = "ÍÓÈ ÇÓã ÇáÔÑßÉ ÈÏæä ÚáÇãÉ ÇáÊäÕíÕ(MyPrinter1 Çæ MyPrinter2)"

Case Company_3

Application.ActivePrinter = "ÍÓÈ ÇÓã ÇáÔÑßÉ ÈÏæä ÚáÇãÉ ÇáÊäÕíÕ(MyPrinter1 Çæ MyPrinter2)"

' Case Company_4

' Application.ActivePrinter = "ÍÓÈ ÇÓã ÇáÔÑßÉ ÈÏæä ÚáÇãÉ ÇáÊäÕíÕ(MyPrinter1 Çæ MyPrinter2)"

End Select

[gamalin]

الكود بعد اصلاح الخط العربي وخالص تحياتي لاخي عمر

MyPrinter1 = "\\S_mokhtar\hp LaserJet 1320 PCL 6 on Ne04:"

MyPrinter2 = "\\Mamdouh\hp LaserJet 1320 PCL 6 on Ne02:"

'

Company_1 = "شركة مدستار مصر"

Company_2 = "الصناعة"

Company_3 = "اكتب أسم الشركة 3"

'Company_4 = "اكتب أسم الشركة 4"

'

Defprinter = Application.ActivePrinter

MyCompany = Sheets("Sheet2").Range("C30")

Select Case MyCompany

Case Company_1

' Application.ActivePrinter = MyPrinter1 ' ***هذا السطر مثال***

Application.ActivePrinter = MyPrinter2

Case Company_2

Application.ActivePrinter = MyPrinter1

Case Company_3

Application.ActivePrinter = "حسب اسم الشركة بدون علامة التنصيص(MyPrinter1 او MyPrinter2)"

' Case Company_4

' Application.ActivePrinter = "حسب اسم الشركة بدون علامة التنصيص(MyPrinter1 او MyPrinter2)"

End Select