omhamzh قام بنشر نوفمبر 8, 2020 مشاركة قام بنشر نوفمبر 8, 2020 (معدل) السلام عليكم ورحمة الله الاخوة الافاضل لدى كود لعمل مشاهدة للطباعة احتاج اضافة للكود لعمل Printarea الاعمدة من A:g اما الصفوف اريد اذا زاد صف به كتابة يدخل اوتو الى منطقة الطباعة يعنى منطقة الطباعة تبقى زي الترحيل الى اخر صف فاذا زاد صف يدخل الى منطقة الطباعة مع الشكر وخالص الدعاء print area.xlsm تم تعديل نوفمبر 8, 2020 بواسطه omhamzh رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر نوفمبر 8, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 8, 2020 هذا الماكرو بكفي اذا كانت الدانا تبدأ من الـــ A1 Sub Exacte_Pr_AR() ActiveSheet.PageSetup.PrintArea = _ Range("A1").CurrentRegion.Address End Sub 2 رابط هذا التعليق شارك More sharing options...
omhamzh قام بنشر نوفمبر 8, 2020 الكاتب مشاركة قام بنشر نوفمبر 8, 2020 بارك الله فيك اخى سليم حاصبيا انا عايزة كود برينت اريا مطاطى عندما اضغط على الزر يعمل برينت اريا ااعمود A&B&C&D&E&F&G اما بالنسبة للصفوف لهذه الاعمدة يحدد بناء على اول عامود اخر خلية بها بيانات بحيث لو زودت بيانات البرينت اريا تتغير للصفوف فاهمنى اخى انا احاول اشرح طلبى عندى منطقة الطباعة ثابتة فى الاعمدة من العمودa:g اما االصفوف متغيرة بارك الله فيك واعزك الله بين العباد رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 8, 2020 مشاركة قام بنشر نوفمبر 8, 2020 و هذا ما يقوم به الكود 1-فقط ضغي مكان الــ A1 النطاق حيث تبدأ البيانات 2 نفذي الكود 3 اذهبي الى Print Preview و شاهدي بنفسك 2 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر نوفمبر 8, 2020 مشاركة قام بنشر نوفمبر 8, 2020 جربي هذا الماكرو لعله ينفع معك Sub PrintPreview() Dim ws As Worksheet Dim lastRow As Long Set ws = ThisWorkbook.Sheets("sheet1") lastRow = Cells(Rows.Count, 1).End(xlUp).Row ws.PageSetup.PrintArea = ws.Range("A1:g" & lastRow).Address ActiveSheet.PrintPreview End Sub 3 1 رابط هذا التعليق شارك More sharing options...
omhamzh قام بنشر نوفمبر 8, 2020 الكاتب مشاركة قام بنشر نوفمبر 8, 2020 كل الشكر منى لكم استاذ سليم بارك الله فيك الف شكر اخى استاذ عبد الفتاح الف شكر بارك الله فيك جعلكم الله دوما وابدا عونا لنا وحفظكم وبارك فيكم اختكم 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان