waledms قام بنشر فبراير 10, 2018 مشاركة قام بنشر فبراير 10, 2018 المرفق عند عمل معاينه للصف 2/3 لا يظهر آخر صفين فى الورقة ولا تظهر عند الطباعه رصد الإتقان.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 10, 2018 مشاركة قام بنشر فبراير 10, 2018 هذا الكود Sub Print_Salim() Dim range_to_Print As Range Dim k% Set range_to_Print = Range("A6").Resize(Range("V1") - 5, 11) Application.ScreenUpdating = False X = Application.CountA(Range("m1:m7")) For I = 1 To X k = 2 range_to_Print.EntireRow.Hidden = False Cells(1, 6) = Application.Index(Range("m1:m6"), I) Do Until range_to_Print.Cells(k, 1) = "" If range_to_Print.Cells(k, 11) <> Cells(1, 6) Then _ range_to_Print.Cells(k, 1).EntireRow.Hidden = True k = k + 1 Loop ActiveSheet.PageSetup.PrintArea = _ range_to_Print.SpecialCells(12).Address '=================== يمكنك اختيار احد هذين الامرين أو كلاهما ============== 'ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1 '=========================================================== Next Application.ScreenUpdating = True End Sub الملف مرفق رصد الإتقان salim.rar رابط هذا التعليق شارك More sharing options...
waledms قام بنشر فبراير 10, 2018 الكاتب مشاركة قام بنشر فبراير 10, 2018 السلام عليكم ورحمة الله وبركاته ....... شكراً للإهتمام كل ما أريده هو ظهور آخر صفين للصف 2/3 عند الطباعه..... كل الفصول تظهر الأسماء كامله إلا فصل 2/3 لا يظهر آخر صفين وهما ( مستوى المهارة للفصل و جملة التلاميذ ) جزاكم الله خيرا رصد الإتقان.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر فبراير 10, 2018 مشاركة قام بنشر فبراير 10, 2018 السلام عليكم ورحمة الله أبدل القيمة 333 في الخلية V1 بقيمة أكبر مثلا 350 (لتبديل نطاق "ناحية الطباعة")... بن علية حاجي رابط هذا التعليق شارك More sharing options...
waledms قام بنشر فبراير 10, 2018 الكاتب مشاركة قام بنشر فبراير 10, 2018 مازال الوضع كما هو بعد تبديل 333 بـ 350 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر فبراير 10, 2018 مشاركة قام بنشر فبراير 10, 2018 السلام عليكم إليك الملف المرفق وبه التعديل الذي اقترحته وهو يعمل بالشكل الذي تريد... بن علية حاجي رصد الإتقان.rar 1 رابط هذا التعليق شارك More sharing options...
waledms قام بنشر فبراير 10, 2018 الكاتب مشاركة قام بنشر فبراير 10, 2018 جزاك الله خيراً .... لو أمكن شرح مبسط للكود لكى أستفيد به فى أعمال أخرى..... جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان