امر طباعة ؟

[adel123]

السلام عليكم ورحمة الله وبركاته

مرفق ملف اريد بالضغط على امر الزر يقوم بطباعة الشيت رقم 2

1.rar

[الجعلي]

جرب هذا الكود في موديل :

 Sheets("2").PrintOut Copies:=1, Collate:=True

هذه مشاركتي الاولى ارجو ان تكون ذات فائدة

تم تعديل أكتوبر 6, 2006 بواسطه هادى سالم

[adel123]

عزيزي المحترم هادي

قمت بتجربة الكود ولكن لا يعمل ولا اعلم السبب الرجاء تجربة الكود على الملف المرفق وارساله

ولسيادتكم جزيل الشكر

1.rar

[علي السحيب]

الكود صحيح وهو يقوم بطباعة ورقة العمل 2 .. أليس هذا ما أشرت إليه؟؟؟؟!!!!!!!

[omar elhosseini]

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

اخى

لطياعة اى ورقة يجب ات تحتوى على بيانات حتى لو كانت خلية واحدة

اكتب اى شئ فى الورقة الثانية اولا

ثم اضغط على الزر الموجود فى الورقة الاولى

سوف تتم الطباعة

[adel123]

شكرا اخي العزيز الكود يعمل بنجاح

شكرا للجميع وجزاكم الله خيرا

[halwim]

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

السلام عليكم ورحمة الله وبركاته

لدي سؤالين أرجو التصويب :

1 - عندما أريد طباعة نطاق محدد من خلال زر وليكن هذا النطاق A1:D15 أقوم بمايلي :

* أقوم بإدراج شريط نماذج من خلال وضع علامة صح على كلمة "نماذج" من أشرطة الأدوات

* أقوم بضغط زر تسجيل ثم موافق من الرسالة التي تخرج بعد عمل الزر أو أشغل أداة التسجيل

من قائمة أدوات ثم ماكرو ثم تسجيل ماكرو جديد .

* أقوم بتحديد المدى A1:D15 من خلال الماوس

* أضغط على زر طباعة كأني أريد أن أطبع

* أقوم بعملية إيقاف تسجيل الماكرو من خلال ضغط أيقونة التوقيف من المربع الصغير أو من قائمة

أدوات ثم ماكرو ثم إيقاف التسجيل .

بهذا تم عمل زر لطباعة المدى A1:D15 وهو جاهز للعمل بمجرد الظغط عليه تتم الطباعة .

وهذه الطريقة صالحة لتوظيف الزر بأي عملية أخرى غير الطباعة ، على ضوء رصد أمر تسجيل الماكرو لكل التحركات .

* سؤالي هل هذه الطريقة صحيحة وآمنة كما نشاهد في بعض أزارير البرامج المصممة ؟

أم توجد طرق أخرى أكثر دقة من خلال الأكواد أوغيرذلك من مختلف الطرق ؟

2 - أتمنى عمل نفس الطريقة كما في الرابط التالي بحيث تتم الطباعة بدون

الإنتقال إلى مكان النطاق المراد طبعه - من خلال زر وليس بالكود .

http://www.officena.net/ib/index.php?showtopic=7462

تحياتي للجميع

[علي السحيب]

طباعة نطاق محدد فقط من ورقة العمل بالطريقة التقليدية يتم من خلال الخطوات التالية:

1- تحديد النطاق المُراد طباعتة.

2- الذهاب إلى القائمة ملف ثم طباعة وفي أسفل مربع حوار الطباعة هناك مربع لتحديد ما نود طباعته .. يحتوي على الثلاث خيارات التالية وهم :

- كامل المصنف (طباعة جميع أوراق العمل دفعة واحدة) - ورقة العمل (طباعة ورقة العمل الحالية) - التحديد (طباعة النطاق المحدد)

ففي هذه الحالة نقوم بإختيار التحديد والضغط على موافق وعندها سيتم طباعة النطاق الذي قمنا بتحديده مسبقاً.

أما إذا أردنا إختصار جميع تلك الخطوات فيكون ذلك عن طريق الكود التالي:

Sub SpecialPrint()

Sheet2.[A1:D15].PrintOut

End Sub

مع ملاحظة أن هذا الكود يقوم بطباعة النطاق A1:D15 من الورقة الحالة .. أما إذا أردنا طباعة نطاق معين موجود في ورقة عمل أخرى فنقوم بإضافة إسم ورقة العمل قبل النطاق .. فيكون الكود كالتالي:

Sub SpecialPrint2()

[F9:H15].PrintOut

End Sub

شاهد المرفق،

_____________________________.rar

تم تعديل نوفمبر 6, 2006 بواسطه علي السحيب

[halwim]

بخصوص بياني السابق حول الماكرو :

* سؤالي هل هذه الطريقة صحيحة وآمنة كما نشاهد في بعض أزارير البرامج المصممة ؟

أرجو التعليق ،،

ملاحظة / عند الظغط على أحد أزرار الطباعة من المرفق تخرج رسالة تطلب حفظ الملف بإسم

وحفظه كنوع mdi وعند الموافقة يتم فتح برنامج غير الإكسل

وهو برنامج Microsoft Office document imaging

لماذا يحدث هذا ؟ وهل سنظطر في كل مرة للطباعة عن طريق برنامج وسيط غير إكسل ؟

تحياتي

[علي السحيب]

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

مثلاً .. بدل من أن يقوم الكود بتضليل عدد خلايا معين ثم يقوم بأمر الطباعة .. يتم تحديد تلك الخلايا في الكود وطباعتها بدون تضليلها .. أليس هذا أفضل؟؟

بالنسبة للخطأ الذي ذكرته .. فهو يظهر في حال تنفيذ أمر طباعة والجهاز الذي تعمل عليه غير متصل بطابعة.

[halwim]

شكرا أستاذي العزيز ،،

فعلا جهازي غير متصل بطابعة .

تحياتي .