طلب كود طباعة الصفحة الأولى من كل شيت بملف الاكسيل

[يوسف عطا]

السلام عليكم أعضاء المنتدى الكرام

كل عام و انتم بخير و اتمنى تكون السنة الجديدة 2023 سنة خير و بركة و سعادة على الجميع

لدى ملف اكسيل به ما يزيد عن 100 شيت و كل شيت به عدد مختلف من الصفحات

المطلوب كود لطباعة الصفحة الأولى فقط من كل شيت داخل الملف

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

 

[محمد يوسف ابو يوسف]

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

 

اين الملف  !!!!!!ِ

[mn20]

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

لطباعة الصفحة الاولى فقط من جميع الأوراق في الملف جرب الكود:

Sub Print1()
    Dim WS As Worksheet
    For Each WS In ActiveWorkbook.Sheets
        WS.PrintOut From:=1, To:=1
    Next
End Sub

 

[يوسف عطا]

الف شكر 

MN 20

جارى التجربة

[mn20]

تحية طيبة الملف المرفق للتجربة .. وفقكم الله

طباعة الصفحات الولى من كل ورقة.xlsm