كود طباعة كافة أوراق العمل

[عاشق الاكسيل]

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

الاخوة الاعزاء

فضلا اريد كود طباعة لكافة اوراق العمل فى مصنف

ملحوظة لعلها تفرق : حجم الطباعة A3

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

أخي الكريم مصطفى

يرجى تكبير حجم الخط قليلاً (النظر ضعيف ..) وأمر آخر لا تكتب كلمة طلب أو مساعدة أو عاجل أو أي من هذه الكلمات في عنوان الموضوع (تم التعديل وحذف كلمة طلب)

 

جرب هذا الكود ..يقوم بطباعة الأوراق المخفية والظاهرة ..جميع أوراق العمل كافة

Sub Print_Hidden_And_Visible_Worksheets()
    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

تقبل تحياتي