ahmed88872 قام بنشر يناير 2, 2018 مشاركة قام بنشر يناير 2, 2018 "ما الخطا فى هذا الكود " طباعة كل ارقام الجلوس حيث انه يعمل باستمرار ولا يقف ارجو تصحيح الخطا بالكود و توضيحه وجزاكم الله خيرا 111.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 2, 2018 مشاركة قام بنشر يناير 2, 2018 استبدل الكود بهذا Sub all() ' ' Range("a1").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do Until ActiveCell.Row > 50 ActiveCell = ActiveCell.Offset(14).Select ActiveWindow.SelectedSheets.PrintOut Loop Range("a1").Select End Sub 1 رابط هذا التعليق شارك More sharing options...
ahmed88872 قام بنشر يناير 2, 2018 الكاتب مشاركة قام بنشر يناير 2, 2018 جزى الله الاخ سليم كل خير ولكن الكود لا ينفع رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 2, 2018 مشاركة قام بنشر يناير 2, 2018 السلام عليكم ورحمة الله جرب الكود التالي: Sub all() Range("A1").Select ActiveCell = 1 Do ActiveWindow.SelectedSheets.PrintOut ActiveCell = ActiveCell + 14 Loop Until ActiveCell.Value > Range("E2").Value Range("A1").Select End Sub بن علية حاجي 1 رابط هذا التعليق شارك More sharing options...
ahmed88872 قام بنشر يناير 4, 2018 الكاتب مشاركة قام بنشر يناير 4, 2018 جزاك الله خيرا أخى بن علية حاجي نفع الكود الله يبارك فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان