اضافة زرد للطباعة فى ملف اكسيل

[ابو محمد 4]

السلام عليكم

الملف المرفق دفتر درجات

ارجوا اضافة زر للطباعة لطباعة جميع الشيتات 

من 1 الى 11

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

درجات عليا 2025.xlsx

[ابو محمد 4]

الحل من شات جي بي تي

Sub PrintSheets1To11()
    Dim i As Integer
    For i = 1 To 11
        On Error Resume Next ' لو فيه شيت مش موجود برقم معين يتخطاه
        Sheets(CStr(i)).PrintOut
        On Error GoTo 0
    Next i
End Sub