طباعة شيتات متعددة بشرط تجاهل الشيتات الفارغة من البيانات

[ناصرالمصرى]

ايها الاحباب الكرام

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

المطلوب بإذن الله تعالى

كود للطباعة  الشيتات من ورقة 1 حتى ورقة 8

مع مراعاة عدم طباعة أيا من الشيتات الثمانية  حال خلو أحدا منها من البيانات

وكيف يمكن مسح كافة الاوراق من الخلية A8 وحتى اخر صف به بيانات بعد إعطاء أمر الطباعة

شاكر فضل حضراتكم وجزاكم الله خيرا

طباعة شيتات متعددة بشرط تجاهل الشيتات الفارغة من البيانات.rar

تم تعديل يناير 19, 2017 بواسطه ناصرالمصرى

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

وعليكم السلام

جرب الكود التالي
 

Sub Test()
    Dim sh      As Worksheet

    Application.ScreenUpdating = False
        For Each sh In ThisWorkbook.Worksheets
            If sh.Name <> "الرئيسية" And Application.WorksheetFunction.CountBlank(sh.Cells) <> sh.Cells.CountLarge Then
                sh.PrintPreview    'Change PrintPreview To PrintOut
            End If
        Next sh
    Application.ScreenUpdating = True
End Sub

 

[ناصرالمصرى]

أستاذى الفاضل ابو البراء

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

شاكر فضلك لمروركم الكريم 

الكود تمام حسب المثال المرفق

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

هل من طريقة أخرى استاذى الفاضل نظرا لوجود اوراق عمل أخرى قبل وبعد الثمانية أوراق

وكيف يمكن مسح الاوراق الثمانية بعد اعطاء امر الطباعة

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

تم تعديل يناير 19, 2017 بواسطه ناصرالمصرى

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

يمكن وضع أوراق العمل الثمانية في مصفوفة والعمل عليها فقط

Sub Test()
    Dim sh      As Worksheet

    Application.ScreenUpdating = False
        For Each sh In Sheets(Array("Sheet1", "Sheet2")) 'Put Your Sheet Names Here
            If Application.WorksheetFunction.CountBlank(sh.Cells) <> sh.Cells.CountLarge Then
                sh.PrintPreview    'Change PrintPreview To PrintOut
            End If
        Next sh
    Application.ScreenUpdating = True
End Sub

 

[ناصرالمصرى]

أستاذى الفاضل ابو البراء

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

 

بارك الله فيك

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

 لأنه بمجرد تدوين أى رقم أو حرف يتم طباعة الورقة 

أخى ياسر / بالنسبة للثمانى ورقات هم عبارة عن جدوال ذات ترويسة ثابته

كيف يمكن الاحتفاظ بالترويسة مع عدم طباعة أيا من الجدوال

فى حالة خلو أيا منها من البيانات " كنطاق " من A8  إلى العمود I و حتى أخر صف

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

شاكر فضل حضرتك وجزاكم الله خيرا

طباعة شيتات متعددة بشرط تجاهل الشيتات الفارغة من البيانات.rar

تم تعديل يناير 20, 2017 بواسطه ناصرالمصرى

[ناصرالمصرى]

للرفع رفع الله قدركم

[ناصرالمصرى]

للرفع رفع الله قدركم

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

غير السطر التالي

If Application.WorksheetFunction.CountBlank(sh.Cells) <> sh.Cells.CountLarge Then

ليصبح بهذا الشكل

بفرض أن النطاق هو A1:B3

If Application.WorksheetFunction.CountBlank(sh.range("A1:B3")) <> sh.range("A1:B3").Count Then

 

[ناصرالمصرى]

أخى الفاضل ابو البراء

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

تسلم تسلم الله ينور عليك وعلى والديك

شاكر فضل حضرتك وجزاكم الله خيرا

[ناصرالمصرى]

أخى الفاضل ابو البراء

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

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

التى تنحصر فى نفس النطاق وحتى أخر صف يوجد به بيانات

 شاكر فضل حضرتك وجزاكم الله خيرا

تم تعديل يناير 21, 2017 بواسطه ناصرالمصرى

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

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

 

[ناصرالمصرى]

أخى الفاضل ابو البراء

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

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

اما عن المصفوفة فالامر يختلف معى 

فهل يمكن أن تتفضل علينا بما هو أنت أهلا له

 شاكر فضل حضرتك وجزاكم الله خيرا

تم تعديل يناير 21, 2017 بواسطه ناصرالمصرى

[ناصرالمصرى]

للرفع رفع الله قدركم

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

أخي الكريم إذا أردت مسح نطاق محدد في أوراق العمل المعنية ما عليك سوى إضافة سطر واحد فقط ، وهو موضح بالفيديو بشكل تفصيلي

بعد السطر التالي

sh.PrintPreview    'Change PrintPreview To PrintOut

أضف السطر التالي بهذا الشكل

sh.Range("A1:B3").ClearContents

غير النطاق المكتوب للنطاق المطلوب

[ناصرالمصرى]

أخى الفاضل ابو البراء

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

رفع الله قدركم وأعزكم وإيانا بالإسلام

شاكر فضل حضرتك وجزاكم الله خيرا