تحيا مصر قام بنشر أكتوبر 25, 2016 مشاركة قام بنشر أكتوبر 25, 2016 السلام عليكم اخوانى بالموقع الشيت الموجود به اكثر من صفحة وبها صفحات خالية من البيانات واريد طباعة الصفحات التى بها بيانات فقط ويتجاهل الخالية من البيانات انا عند كود بيؤدى الغرض ولكن وجود العنوان بيجعل الكود يطبع الورقة على اعتبار انها بيانات ارجو المساعدة من عمالقة الموقع Book1.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 25, 2016 مشاركة قام بنشر أكتوبر 25, 2016 جرب هذا الماكرو Sub Print_Area() ActiveSheet.PageSetup.PrintArea = "" ActiveSheet.Range("a:a").EntireRow.Hidden = False lr = Cells(Rows.Count, 1).End(3).Row Set my_rg = Range("a3:a" & lr).SpecialCells(xlCellTypeBlanks) my_rg.EntireRow.Hidden = True ActiveSheet.PageSetup.PrintArea = "$A$3:$C$" & lr End Sub 1 رابط هذا التعليق شارك More sharing options...
تحيا مصر قام بنشر أكتوبر 25, 2016 الكاتب مشاركة قام بنشر أكتوبر 25, 2016 شكرا لاهتمام حضرتك وسوف اجرب وارجع مرة اخرى رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 26, 2016 مشاركة قام بنشر أكتوبر 26, 2016 اخي سلم حاصبيا عمل جدا رائع ومميز بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.