السلام عليكم ورحمة الله وبركاته
اسعد الله اوقاتكم اخوانى اعضاء اوفيسنا
هل يمكن ربط نظاق الطباعة بأخر بيانات فى الاعمده
lc = Range("b2").End(xlToRight).row
ActiveSheet.PageSetup.PrintArea = "$b$2:$R$25"
حيث ان عمود الـR فى المثال غير ثابت فى امتداد البيانات المسجله فى الشيت