هذا ملف به ارقام جلوس الطلاب ... كل صفحه بها 9 ارقام جلوس
اريد تفعيل هذا الكود الخاص بالمحترم بن عليه .. جزاه الله عنا كل خير
وجزاكم الله كل خير
Sub Print_FROM_TO()
For I = [P2] To [Q2] Step 4
If I >= [U1] And I <= [U2] Then
[I9] = I
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
[I9] = [U1]
End Sub
طباعــــــة بن عليه.rar