السلام عليكم ورحمة الله 
نظرا لحاجتى الشديدة قمت بطرح التالى 
الكود المطلوب تعديله 
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
فهل المطلوب قد وصل لكم