طباعة أوراق الاكسل دفعة واحدة

[asab2004]

اعزائي رواد هذا المنتدى المتميز

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

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

اخوكم ابو عبدالعزيز

[حسام نور]

- بسيطه إذا كان لديك فكره عن تصميم زر أمر .. واليك الخطوات وستتبع لمرة واحده

- أفتح ملف الأكسيل

- إذا كان شريط الأدوات ( نماذج ) مفعل لديك كان بها وإن لم يكن أضغط بالماوس الأيمن في أي جزأ فارغ وأختر ( نماذج )

- الآن أضغط على شكل تصميم الزر وأسحب شكل الزر وأبدأ بتسجيل الماكرو كالتالي

- إذهب لكل صفحه تريد طباعتها وأضغط على زر طباعه أو أختر من ( ملف ) ( طباعه ) ثم موافق

- كرر العمليه مع كل صفحه تريد طباعتها الي أن تنتهي

- الآن وبعد الأنتهاء أضغط ( أدوات ) أيقاف تسجيل ماكرو

- الآن إذهب الي الصفحه التي وضعت بها زر الأمر وماوس يمين على الزر وعدل أسمه ولون الخط وحجمه كما تشاء

- هذا الزر بمجرد الضغط عليه سيقوم بطباعه الصفحات التي أخترتها

- جرب ذلك

مع الشكر

[محمد حجازي]

السلام عليكم ...

إذا كنت تريد طباعة ورقات مصنف الاكسل كلها بدون استثناء ، فالكود التالي يحقق لك الغرض :

Sub PRINT1()

Dim Pr As Worksheet
For Each Pr In ActiveWorkbook.Worksheets
 Pr.PrintOut Copies:=1, Collate:=True
Next Pr
End Sub

طبعاً هذا مع الأخذ بالاعتباه ما قاله الأخ العزيز حسام نور .

[المهاجر]

ما شاء الله تبارك الله

أحسنت أستاذ حسام نور وكذلك أستاذ محمد حجازي.

القسم منور بوجودكم

[حسام نور]

- الأخ الكريم أبو عبد العزيز .. لا شكر على واجب .. دائماً على الرحب والسعه

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

- أستاذنا الكبير .. المهاجر ... القسم دائماً منور بأطلالتك الجميله علينا ونصائحك وخبرتك .. أرجوك لا تحرمنا من ذلك

تم تعديل ديسمبر 21, 2004 بواسطه حسام نور