كود بلغة HTML:
Sub طباعة_الكشوف() 'الكود للمحترم احمد كامل 'الهدف من الكود هو طباعه اللجان المدرسيه 'تم هذا الكود في اكتوبر 2017 '**************** Range("F1").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 2 Legan_Test ActiveWindow.SelectedSheets.PrintOut Loop While ActiveCell.Value <= Range("E1").Value Range("b1").Select End Sub