مساعدة فى طباعة عدة ورقات

[تحيا مصر]

السلام عليكم اخوانى بالموقع

 

الشيت الموجود به اكثر من صفحة  وبها صفحات خالية من البيانات

واريد طباعة  الصفحات التى بها بيانات فقط   ويتجاهل الخالية من البيانات 

انا عند كود  بيؤدى الغرض ولكن وجود  العنوان  بيجعل الكود يطبع الورقة على اعتبار انها بيانات 

ارجو المساعدة من عمالقة الموقع 

Book1.rar

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

جرب هذا الماكرو

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

 

[تحيا مصر]

شكرا لاهتمام حضرتك وسوف اجرب  وارجع مرة اخرى

[محمد عبدالسلام]

اخي سلم حاصبيا عمل جدا رائع ومميز بارك الله فيك