طباعة محتويات صفوف مخفية

[ابو طيبه]

السلام عليكم محتاج اضافة لكود الطباعة لكي يقوم بطباعة محتويات الصفوف الثلاثة الأولى في حالة اخفائها كماهو في المرفق  مع جزيل الشكر

مشاركة مكررة ... تــم بالفعل حذف المشاركة الأخرى

ملفي.xlsm

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

جرب هذه  المحاولة لعله  المطلوب

print hidden first three rows.xlsm

[ابو طيبه]

مشكور استاذ العزيز عبدالفتاح قمت في التغيير في الكود في حال وجود صفحات كثير بنفس النمط لطباعة الورقة النشطة فقط

هذا السطر 

 Sheets("موازنة 2020").PrintOut

 الى 

ActiveSheet.PrintOut

تحياتي لحضرتك والله يجعلها في ميزان حسناتك

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

Try This code

Option Explicit
Sub Hide_then_Print()
Dim LR%
 
 With Sheets("موازنة 2020")
   LR = .Cells(Rows.Count, 1).End(3).Row
  .Rows("1:3").Hidden = False
  .PageSetup.PrintArea = _
  .Range("A1:F" & LR).Address
  
  .PrintPreview             ' <<<==== Change to .PrintOut
  
  .Rows("1:3").Hidden = True
  End With
End Sub