كود طباعة لايعمل

[بسولي]

السلام عليكم

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

مثل طباعة النطاقات التالية

a1`:a5

d1:d5

w1:w5

بحيث تكون الأعمدة بجوار بعض

وقد تفضلوا مشكورين يإعطائي هذا الكود

Sub PrintRpt2()

Range("HVIII_3A2").PrintOut

Range("BVIII_3").PrintOut

Range("BVIII_4A").PrintOut

Range("HVIII_4A2").PrintOut

Range("BVIII_5A").PrintOut

Range("BVIII_5B2").PrintOut

Range("HVIII_5A2").PrintOut

Range("HVIII_5B2").PrintOut

End Sub

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

ولكم خالص الشكر والتقدير

[محمد طاهر عرفه]

اعتقد أن طباعة نطاقات غير متجاورة دفعة واحدة ( و فى صفحة واحدة) غير متاح مباشرة

لانك حتى لو اخترت منطقة غير متجاورة كمساحة طباعة print area

فستجد أن كل مساحة جزئية لابد و أن تظهر فى صفحة مستقلة

و عليك بالتحايل لفعل ذلك

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

ثم يخفى الاعمدة المطلوب طباعتها

ثم يطبع

ثم يعيد اظهار الاعمدة

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

و ربما يكون لدى أحد الخوة حل أفضل

[فلسطيني]

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

انظر الملف المرفق في الرابط التالي

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

[بسولي]

اشكر لكم ماقدمتم

ونفع الله بكم وبعلمكم

[محمد طاهر عرفه]

السلام عليكم

أخى فلسطيني

فى الملف المشار اليه أضفت بعض البيانات و لم تظهر معى النطاقات المختلفة فى صفحة و احدة

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

ارجو التوضيح

[فلسطيني]

أخي محمد طاهر

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

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

هكذا فهمت من رسالة الأخ (بسولي)

و إذا كان المراد طباعة أكثر من نطاق من الصفحة ذاتها في ورقة طباعة واحدة فالكود حينها يحتاج لبعض التعديل