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

[omhamzh]

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

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

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

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

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

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

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

print area.xlsm

تم تعديل نوفمبر 8, 2020 بواسطه omhamzh

[سليم حاصبيا]

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

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

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

 

[omhamzh]

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

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

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

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

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

فاهمنى اخى

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

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

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

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

[سليم حاصبيا]

و هذا ما يقوم به الكود
1-فقط ضغي مكان الــ  A1 النطاق حيث تبدأ البيانات
2 نفذي الكود
3 اذهبي الى  Print Preview و شاهدي بنفسك

[عبدالفتاح في بي اكسيل]

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

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

 

[omhamzh]

كل الشكر منى لكم

استاذ سليم بارك الله فيك الف شكر اخى

استاذ عبد الفتاح الف شكر بارك الله فيك

جعلكم الله دوما وابدا عونا لنا وحفظكم وبارك فيكم

اختكم