طلب كود طباعة كل ورقات العمل مرة واحدة

[عبدالرحمن بدوى]

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

 

فى الملف المرفق يوجد 5 ورقات عمل وكل منها محدد فيه print area بصفحة واحدة

 

ما أريده هو الكود (ولو تكرمتم مع الشرح لأستطيع تطبيقه فى عملى) لطباعة هذه الورقات كلها مرة واحدة وبضغطة واحدة على الزر

 

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

1.rar

[KHMB]

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

تفضل اخي مع عدم ظهور الصفوف الفارغة بعد اول صف

 

 

طباعة كل الشيتات ماعدا الرئيسية.rar

[عبدالرحمن بدوى]

جزاكم الله خيرا على هذا المجهود

ولكنى أريد أن أطبع كل الورقات ومن ضمنها الورقة الرئيسيسة لأنها عندى فى الشغل ليست رئيسية وإنما هى من الورق المطلوب طباعته

وأيضا أريده أن يطبع مباشرة دون عرض print preview لكل صفحة

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

[KHMB]

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

تفضل اخي طباعة مباشرة لكل الشيتات حتى الرئيسية

طباعة كل الشيتات.rar

[عبدالرحمن بدوى]

أشكرك أخى الفاضل هذا هو المطلوب

لكنى لا أستطيع التفرقة بين الكودين

؟

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

الأخ الحبيب أبا الحسن والحسين

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

أخي عبد الرحمن

إليك كود الأخ الغالي أبا الحسن والحسين (كودين ..دمجتهم في كود واحد . وقمت بشرح أجزاء الكود لتتمكن من التعديل عليه بما يناسبك)

Sub PrintAll()
'تعريف المتغيرات
    Dim LR As Long
    Dim I As Long
'سطر للتجاهل في حالة حدوث خطأ
    On Error Resume Next
'حلقة تكرارية لكل أوراق العمل
    For I = 1 To Sheets.Count
'تحديد أو تنشيط ورقة العمل المراد طباعتها
        Sheets(I).Select
'بدء التعامل مع ورقة العمل النشطة
        With ActiveSheet
'تحديد آخر صف به بيانات في العمود الثامن
        LR = Range("A50:H").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
'ضبط نطاق الطباعة
            .PageSetup.PrintArea = "A1:H" & LR
'طباعة النطاق المحدد
            .PrintOut
'نهاية التعامل مع الورقة النشطة
        End With
'الانتقال لورقة العمل التالية
    Next
End Sub

[KHMB]

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

شكرا اخي واستاذي الاستاذ / ياسر بارك الله فيك وجزاك الله خير الجزاء

تسلم

تم تعديل أبريل 14, 2015 بواسطه KHMB

[عبدالرحمن بدوى]

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