بعد إذن استاذنا / الأستاذ : ياسر خليل
هذه محاولة من تلميذ ونرجوا التقييم
هذا تعديل على كود الأستاذ ياسر لعلها تحقق المطلوب
Option Explicit
Sub PrintAll()
Dim X As Long
Application.ScreenUpdating = False
For X = Range("AA2").Value To 106
Range("AA2").Value = X
ActiveWindow.SelectedSheets.PrintOut Copies:=1
With ThisWorkbook
.Save
End With
Next X
Application.ScreenUpdating = True
End Sub