طباعة اكثر من Area فى شيت واحد

[خالد الشاعر]

السادة الخبراء

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

"ActiveSheet.PageSetup.PrintArea = "$A$8:$H$20

"ActiveSheet.PageSetup.PrintArea =  "$A$30:$H$34

ولكم جزيل الشكر و الاحترام

[سليم حاصبيا]

جرب هذا الكود

Sub set_pr_Area()
    With ActiveSheet
        .Rows("21:28").EntireRow.Hidden = True
        .PageSetup.PrintArea = ""
        .PageSetup.PrintArea = "$A$8:$H$20,$A$30:$H$34"
            With .PageSetup
                  .PrintTitleRows = ""
                  .PrintTitleColumns = ""
            End With
    
    End With
ActiveSheet.PageSetup.PrintArea = "$A$8:$H$34"
End Sub

 

[خالد الشاعر]

استاذ سليم

شكرا على سرعة الرد

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

جزاكم الله كل خيراً

[سليم حاصبيا]

23 دقائق مضت, خالد الشاعر said:

استاذ سليم

شكرا على سرعة الرد

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

جزاكم الله كل خيراً

يجب ان تعطي امر الطباعة بواسطة (Ctrl+P)  ثم Enter

او اذا اردت ذلك من خلال الماكرو اضف هذا السطر في نهاية الكود مباشرة فبل عبارة end sub

ActiveSheet.PrintOut

 

تم تعديل مارس 10, 2016 بواسطه سليم حاصبيا

[خالد الشاعر]

اشكرك استاذ سليم

لى سؤال لو سمحت هى طباعة  area مختلفة ممكن من غير اخفاء الصفوف بينهم

جزاكم الله كل خيراً

[سليم حاصبيا]

7 دقائق مضت, خالد الشاعر said:

اشكرك استاذ سليم

لى سؤال لو سمحت هى طباعة  area مختلفة ممكن من غير اخفاء الصفوف بينهم

جزاكم الله كل خيراً

 

7 دقائق مضت, خالد الشاعر said:

اشكرك استاذ سليم

لى سؤال لو سمحت هى طباعة  area مختلفة ممكن من غير اخفاء الصفوف بينهم

جزاكم الله كل خيراً

ممكن ذلك لكن هذا الشيئ سوف يتطلب اكثر من ورقة(أو اذا ورقة واحدة يكون الخط صغيراً)

[ياسر خليل أبو البراء]

يمكن إضافة سطر لإظهار الصفوف مرة أخرى بعد سطر الطباعة

تقبلوا تحياتي

[خالد الشاعر]

استاذ سليم

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

[خالد الشاعر]

اشكر استاذ ياسر على مروره الكريم 

و على المعلومة المفيدة

[سليم حاصبيا]

35 دقائق مضت, خالد الشاعر said:

استاذ سليم

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

يمكنك اخذ فكرة من الملف التالي(تم الاستعاتة بورقة اضافية يستعملها اكسل للطباعة ثم يمحيها بعد ذلك)

Test_Print_Areas.rar

تم تعديل مارس 10, 2016 بواسطه سليم حاصبيا

[خالد الشاعر]

استاذ سليم 

جزاكم الله كل خيراً

و لكن هذا الملف يخلق شيت و ينسخ فيه ثم يطبع

         افهم من هذا ان لا يمكن الطباعة مباشر 

شكرا

[سليم حاصبيا]

11 دقائق مضت, خالد الشاعر said:

استاذ سليم 

جزاكم الله كل خيراً

و لكن هذا الملف يخلق شيت و ينسخ فيه ثم يطبع

         افهم من هذا ان لا يمكن الطباعة مباشر 

شكرا

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

و ما الفرق اذا كانت الورقة الجديدة تحذف مباشرة بعد انتهاء دورها

[خالد الشاعر]

ولكن لو النطاقات كانت تحت بعض ممكن الطباعة مباشر

[ياسر خليل أبو البراء]

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

ما الداعي للطباعة بشكل مباشر طالما أن هناك طرق تؤدي المطلوب؟ يرجى توضيح تلك النقطة علنا نستطيع ان نصل لنقطة التقاء

تقبل تحياتي

 

[خالد الشاعر]

استاذ سليم

استاذ ياسر

اشكركم عن تعاونكم 

انا اسف لكثرة الاسئلة ولكن الفكرة لتعلم منكم لمعرفة طريقة جديدة هل ممكنه ام لا

جزاكم الله كل خيراً

تم تعديل مارس 11, 2016 بواسطه خالد الشاعر

[سليم حاصبيا]

هناك طريقة ثانية بدون الشيت المساعد

انظر الى الملف الزر :  Print2

Test_Print_Areas 2 way.rar

[خالد الشاعر]

تسلم ايدك استاذ سليم

  جزاك الله كل خيراً