طباعة مصنف به العديد من الصفحات المخفاه

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

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

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

الملف بدون إخفاءات لتلك الصفحات يعمل بدون مشاكل أما بالإخفاءات تظهر رسائل خطأ

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

تذليل تلك العقبة ***** شاكر فضل حضراتكم وجزاكم الله خيرا

اعتذر عن رفع الموضوع مرتين لخطأ فنى بالنت لذا يرجى حذف أحد الرابطين

 

مثال من ص 1 الى ص 8.rar

مثال طباعة مع اخفاء صفحات مختلفه.rar

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

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

للرفع

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

للرفع

 

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

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

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / ناصر المصري

تقبل خالص تحياتي

قم بتعديل الكود الخاص بالطباعة الي الكود التالي ( والفكرة هي اظهار الملفات للطباعة اولاً ثم اخفاءها مرة اخري بعد الانتهاء من الطباعة )

Sub Test()
    Dim sh  As Worksheet
    
    Application.ScreenUpdating = False
        For Each sh In Sheets(Array("ورقة1", "ورقة2", "ورقة3", "ورقة4", "ورقة5", "ورقة6", "ورقة7", "ورقة8"))
sh.Visible = xlSheetVisible
If Application.WorksheetFunction.CountBlank(sh.Range("A1:B3")) <> sh.Range("A1:B3").Count Then
sh.PrintOut
sh.Visible = xlSheetHidden
            End If
        Next sh
    Application.ScreenUpdating = True

End Sub

واذا واجهت مشكلة في تنفيذ الكود تأكد من اسماء الشيتات في الكود ( حيث ان لدي مشكلة بالجهاز لا تظهر اللغة العربية الآن )

حيث تم اضافة الجزئية التالية ( لاظهار الشيتات ) في بدايات الكود

sh.Visible = xlSheetVisible

ثم اضافة الجزئية التالية ( لاخفاء الشيتات مرة اخري ) في نهايات الكود

sh.Visible = xlSheetHidden

واخبرنا بالنتيجة ان شاء الله

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

تم تعديل مارس 18, 2017 بواسطه حمادة عمر

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

بسم الله الرحمن الرحيم

وبه نستعين

أخى وأستاذى الفاضل / حماده عمر " ابوسما "

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

شاكر لكم اخى اهتمامكم بالموضوع فجزاكم الله تعالى خير الجزاء

معلشى الموضوع محير بعض الشيىء

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

منهم عدة أوراق دون طباعة مع الاخفاء

ومنهم عدة اوراق طباعة مع الاخفاء وهى الاوراق من STOR 1  حتى STOR 10

لديك بالمرفق التالى أربعة أكواد

الاول لمنع طباعة اوراق محددة سواء مرئية أو مخفية وهو ويعمل بطريقة ممتازة

Sub printsheets() ' لمنع صفحات محددة من الطباعة سواء مرئية أو مخفية
    Dim dontPrint As Object
    Dim ws As Worksheet
    Set dontPrint = CreateObject("Scripting.Dictionary")
    dontPrint.Add "List", 1
    dontPrint.Add "Add", 2
    dontPrint.Add "Main store", 3
    dontPrint.Add "Search", 4
    dontPrint.Add "Archives", 16
    dontPrint.Add "Collection items", 17
    dontPrint.Add "Suppliers", 18
    dontPrint.Add "Customers", 19
    For Each ws In ActiveWorkbook.Worksheets
     If dontPrint.Exists(ws.Name) Then
     Else
        ws.PrintOut
     End If
    Next ws
End Sub

الثانى لطباعة الاوراق المخفية فقط وهو يعمل أيضا بطريقة ممتازة " للإستفاده من عمل الكود "

Sub PrintOnlyHiddenWorksheets() ' لطباعة الاوارق المخفية فقط
    Dim CurVis As Long
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        With sh
            CurVis = .Visible
            If CurVis >= 0 Then
                .Visible = xlSheetVisible
                .PrintOut
                .Visible = CurVis
            End If
        End With
    Next sh
End Sub

الثالث لطباعة الاوراق المرئية والمخفيه معا وهو ايضا يعمل بطريقة ممتازة " للإستفاده من عمل الكود "

Sub PrintHiddenAndVisibleWorksheets() ' لطباعة الاوراق المخفية والمرئية معا
    Dim CurVis As Long
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        With sh
            CurVis = .Visible
            .Visible = xlSheetVisible
            .PrintOut
            .Visible = CurVis
        End With
    Next sh
End Sub

نأتى للكود الرابع والمعنى بالاضافة أو التعديل الذى تفضلت سيادتكم بتعديله 

Sub Test() 'تعديل الاستاذ الفاضل / حمادة عمر ابو سما
    Dim sh  As Worksheet
    Application.ScreenUpdating = False
        For Each sh In Sheets(Array("Stor10", "Stor9", "Stor8", "Stor7", "Stor6", "Stor5", "Stor4", "Stor3", "Stor2", "Stor1"))
sh.Visible = xlSheetVisible
        If Application.WorksheetFunction.CountBlank(sh.Range("A10:V5000")) <> sh.Range("A10:V5000").Count Then
sh.PrintOut
sh.Range("A10:V5000").ClearContents ' اضفت هذا السطر لمسح محتوى الجدوال بعد الطباعة
sh.Visible = xlSheetHidden
            End If
        Next sh
    Application.ScreenUpdating = True

End Sub

 والسؤال كيف يمكن عمل توافق بين الكود الاول والكود الرابع كمصفوفه بين منع الطباعة مع الاخفاء وبين طباعة المصفوفة مع الاخفاء

ملحوظة هذا الموضوع مرتبط بموضوع خاص بكم تم رفعه

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

من فضلك إضغط هنا

شاكر فضلك وشاكر فضل كل من يساهم فى هذا الموضوع وجزاكم الله جميعا خير الجزاء

طباعة اوراق محددة مع الاخفاء + منع طباعة اوراق مع الاخفاء.xlsb.rar

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

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

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

[حمادة عمر]

عذرا اخي الكريم / ناصر ... لم افهم المطلوب تماما او اختلط علي الامر

كيف تقوم بتشغيل الكود الاول  ( منع طباعة اوراق محددة سواء مرئية أو مخفية ) 

وتقوم بتشغيل الكود الرابع ( طباعة اوراق محددة سواء مرئية أو مخفية )  في نفس الوقت  .. فكيف لي المنع والطباعة في آن واحد

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

تقبل خالص تحياتي

 

 

 

[hicham2610]

السلام عليكم

هل حلت أخي مشكلتك؟

إن لم تحل؟ في ردك أرفق الملف الذي تريد تعديل الكود

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

اخى الفاضل / حماده عمر

السلام عليكم

عذرا للتأخير فى الرد لضعف شديد فى النت

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

والمطلوب هنا طباعة الاوراق من STOR1  حتى  STOR10  مع الاخفاء  " مش إظهار ثم اخفاء "

 هنا تكمن المشكلة  فهل يمكن إضافة  شرط  فى الكود  printsheets  من شأنه طباعة  الاوراق من STOR1  حتى  STOR10  مع الاخفاء هذا هو السؤال وهذا ما أبحث عنه

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

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

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

والشكر موصول للسيد الاستاذ / hicham

الذى أوجه له الدعوة بتغير اسمه الى العربية للتواصل الفعال

اما عن التعديل ففى نفس المرفقات السابقة

وافر تقديرى

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

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

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

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

[أبو سجده]

في 3/18/2017 at 21:00, حمادة عمر said:

عذرا اخي الكريم / ناصر ... لم افهم المطلوب تماما او اختلط علي الامر

كيف تقوم بتشغيل الكود الاول  ( منع طباعة اوراق محددة سواء مرئية أو مخفية ) 

وتقوم بتشغيل الكود الرابع ( طباعة اوراق محددة سواء مرئية أو مخفية )  في نفس الوقت  .. فكيف لي المنع والطباعة في آن واحد

 

في 3/19/2017 at 16:19, ناصرالمصرى said:

اخى الفاضل / حماده عمر

السلام عليكم

والمطلوب هنا طباعة الاوراق من STOR1  حتى  STOR10  مع الاخفاء  " مش إظهار ثم اخفاء "

 هنا تكمن المشكلة  فهل يمكن إضافة  شرط  فى الكود  printsheets  من شأنه طباعة  الاوراق من STOR1  حتى  STOR10  مع الاخفاء هذا هو السؤال وهذا ما أبحث عنه

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

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

تم الرد على الرابط أدناه 

تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا

 

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

السلام عليكم

الاخ ابو عبد الرحمن، هناك مشكلة فى ظهور الرابط الذي اضفته ، يرجى اضافة الرابط مرة اخرى

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

أخى وأستاذى القدير / محمد طاهر

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

بداية جزاكم الله خيرا وبارك فيكم ورزقنا واياكم من حيث لانحتسب

عليك أن تأمر وعلينا التنفيذ فكما تعلم سيادتكم أن صدقة العلم نشرة

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

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

https://www.officena.net/ib/topic/76449-منع-وإخفاء-وطباعة-أوراق-محددة-فى-مصنف-سعيد-بيرم/

[حمادة عمر]

الاستاذ الحبيب / سعيد بيرم

تقبل خالص تحياتي

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

ولك مني اجمل تحية

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

 

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

السلام عليكم

هل تفتح معك الوصلة التى اضفتها عند الضعط عليها ؟

[أبو سجده]

الاستاذ الفاضل // محمد طاهر

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

والله ياأخى أشعر وكأننى يتيم بدون هذا الصرح العظيم

للأسف لم يتم فتح الرابط 

We could not locate the item you are trying to view

عفوا لم نتمكن من العثور على طلبك 

جارى رفع الموضوع مرة أخرى والله المستعان

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

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

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

السلام عليكم

رابط موضوع الاخ سعيد

 

 

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

السيد الاستاذ / محمد طاهر

لا أصدق نفسى نحو هذا الاهتمام البالغ من سعادتكم شخصيا

ومن السيد الاستاذ / حماده عمر ومن السيد الاستاذ / سعيد بيرم

لم أرى هذة الاخلاق الكريمة الا فى منتداكم 

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