السلام عليكم أخي بن عالية
جرب هذا الكود ربما ينفع
Sub Macro1()
Dim i As Integer
(For i = Range("ac7") To Range("ad7"
Range("ad8") = i
If i <= Range("ad8") Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
ملاحظة هذا الكود موجود بالقوائم الخاصة بالرياضة البدنية