السلام عليكم ورحمة الله هذا ملف لعمل الفصول المدرسيه بالمصفوفات وبه تحفه الطباعه للمحترم احمد كامل جزى الله كل من كانت له بصمه في هذا الملف   فصول محمود الشريف2.rar ================= Sub طباعة_القوائم() Range("L1").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 Listts ActiveWindow.SelectedSheets.PrintOut Loop While ActiveCell.Value <= Range("U2").Value Range("b1").Select End Sub