yasayd

شٌكراً  أخي   ,,, إن   شاء الله سأجرب  ذلك 

23 دقائق مضت, ياسر خليل أبو البراء said:

وعليكم السلام

ActivePrinter.rar

شكراً أخي   لتجاوبك 

   النتيجة : - 

upload foto

للرف ع   

السلام عليكم 

كما  هو مشار إليه في العنوان    عندما أعمل  VBA   فإن    Application.ActivePrinter تعمل  بسهولة  في أكسل  2007 

بينما  نفسها  لا تعمل  عندما أستخدمها  مع أكسل 2010

وظيفتها   تفعل  طابعة  محددة مسبقاً    لطباعة  ورقة العمل  

يتم كتابتها كالمثال التالي : - 

Application.ActivePrinter = "HP LaserJet 4 local on LPT1:"

حيث أن ( HP LaserJet 4 local )  هو إسم الطابعة 

و  ( : on LPT1 ) هو المنفذ الذي  تعمل  عليه  الطابعة  في جهازك 

* حتى إذا قمت  بتسجيل ماكرو  في أكسل  2007   والذهاب إلى طباعة ثم إختيار الطابعة  فإن  هذا الكود  سيظهركما هو مكتوب في المثال السابق 

بينما  إذا  قمت  بنفس العمل  وسجلت ما كرو  في  أكسل  2010 وذهبت إلى طباعة  ثم أخترت إحدى الطابعات وضغطت على أمر طباعة  فإن هذا  الكود  لن يظهر إطلاقاً وفقط  سيظهر  أنك  أخترت طباعة الصفحات من كذا إلى كذا في ورقة العمل 

المطلوب  : 

    هل  هنالك   طريقة  ما   لتفعيل  الكود Application.ActivePrinter  وجعله   يؤدي وظيفته ؟

أم   

هل هنالك   كود  آخر    يؤدي   نفس   الوظيفة  ؟

*  ألتمس منكم  العذر  فإني مُبتدئ  في الأكسل  ولم أدرسه  ولم آخذ فيه  أي  دورات بل  دخلت  على النت شاهدت بعض الدروس في اليوتيوب  

       لذا  ربما  تكون  تعابيري  ليست  دقيقة   فلست من أهل هذا التخصص . 

للرفع

image uploading

تم اإطلاع على الملفات المُرفقة ,  وهي   تعمل  بإمتياز 

حتماً   سأستفيد منها بطريقة ما للمهمة التي أنشُدُها  

كنت  أرغب   في  زر  يقوم  مُباشرة  بأختيار الطابعة وتنفيذ أمر  الطباعة  فوراً   

لا أحتاج  كُل  مرةٍ أضغط  على الزر  ثم  تخرج لي قائمة الطابعات ثم أختار الطابعة ثم أضغط طباعة 

أحتاج  الأمر  (  مُباشر )  : بمجرد أضغط الزر ( رقم 1 ) يقوم بالطباعة على الطابعة HP

                                 :    وعند الضغط على الزر ( رقم 2 ) يقوم بالطباعة على الطابعة Canon 

أحتاج  هذا الأمر   حيث أن اللي حاصل أن لدينا في المكتب  طابعتين  واحدة  ( Dot Matrix ) وتُستخدم لطباعة الفواتير والنماذج التي بها نسخ كربونية   أما الطابعة الأخرى  فهي  طابعة  ليزر   لطباعة الخطابات وما أشبه على ورق A4 

 إللي  حاصل  أننا  نفتح أمر الطباعة ونقوم بتبديل الطابعة  يدوياً  

ثم   نقوم بالطباعة 

ثم نرجع  نفتح أمر الطباعة  ونختار الطابعة المناسبة للغرض  التالي المراد طباعته

  وبعض الأخوة  الموظفين   ( تركيزهم  مشتت )  وبالفعل الأمر   مربك   ولا تتذكر  إلى أين أستقريت في الأختيار السابق  حتى تباشر في طباعة الأمر اللاحق .

 أرجو   أن  يكون  شرحي ليس  مُلتبساً    - (   بس  حبيت أحطكم في الصورة )

windows 7 screenshot

ربما  هذه   تنفع 

ألف ألف شُكر  أخي  عبدالله الصاري   لإستجابتك السريعة  بالرد على هذا الإستفسار  ووضع الحلول 

إن شاء الله سأبادر فوراً   بتحميل الملفين المرفقين  - ومن ثم  كتابة   النتيجة  ....

واجهتني   المشكلة  التالية -   دائما  لما   احمل  ملف اكسل من النت   لا أجد  الماكرو  المرتبط   بالأزرار

السلام عليكم   

لقد عملت  ( زر ) في ورقة العمل   مهمته طباعة الصفحات ( من :  إلى :  ) حسب الإختيار المحدد مسبقاً من قِبلي .

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

مثال : 

  عندي   طابعة    (   HP  )  
    وطابعة أخرى ( Canon ) 

هل  أستطيع  عمل  زرين ( ماكرو ) داخل  ورقة العمل  

 الزر الأول  يطبع  على طابعة HP     والزر الثاني  يطبع على طابعة Canon ؟ 

وشكراً  لكم ,