السلام عليكم ورحمة الله
نظرا لحاجتى الشديدة قمت بطرح التالى
الكود المطلوب تعديله
Sub Printing()]
Dim I As Integer
For I = 1158 To 1160
المطلوب تعديل الكود ليكون معيار البداية هو الخلية V7 ومعيار النهايه هو الخلية V8
Range("T7") = I
If I <= 1160 Then
هنا معيار النهايه سيحدد فى الكود V8
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next I
[End Sub
فهل المطلوب قد وصل لكم