اذهب الي المحتوي
أوفيسنا

تعديل كود الطباعة واضافة printarea


omhamzh
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم ورحمة الله الاخوة الافاضل

لدى كود لعمل مشاهدة للطباعة

احتاج اضافة للكود لعمل Printarea 

الاعمدة من A:g

اما الصفوف اريد اذا زاد صف به كتابة يدخل اوتو الى منطقة الطباعة

يعنى منطقة الطباعة تبقى زي الترحيل الى اخر صف فاذا زاد صف يدخل الى منطقة الطباعة

مع الشكر وخالص الدعاء

print area.xlsm

تم تعديل بواسطه omhamzh
رابط هذا التعليق
شارك

  • أفضل إجابة

هذا الماكرو بكفي

اذا كانت الدانا تبدأ من الـــ   A1

Sub Exacte_Pr_AR()
  ActiveSheet.PageSetup.PrintArea = _
  Range("A1").CurrentRegion.Address
End Sub

 

  • Like 2
رابط هذا التعليق
شارك

بارك الله فيك اخى سليم حاصبيا

انا عايزة كود برينت اريا مطاطى

عندما اضغط على الزر يعمل برينت اريا ااعمود A&B&C&D&E&F&G

اما بالنسبة للصفوف  لهذه الاعمدة يحدد بناء على اول عامود اخر خلية بها بيانات

بحيث لو زودت بيانات البرينت اريا تتغير للصفوف

فاهمنى اخى

انا احاول اشرح طلبى

عندى منطقة الطباعة ثابتة فى الاعمدة من العمودa:g

اما االصفوف متغيرة 

بارك الله فيك واعزك الله بين العباد

رابط هذا التعليق
شارك

جربي هذا  الماكرو  لعله  ينفع  معك 

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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information