ابو طيبه قام بنشر فبراير 6, 2021 مشاركة قام بنشر فبراير 6, 2021 السلام عليكم محتاج اضافة لكود الطباعة لكي يقوم بطباعة محتويات الصفوف الثلاثة الأولى في حالة اخفائها كماهو في المرفق مع جزيل الشكر مشاركة مكررة ... تــم بالفعل حذف المشاركة الأخرى ملفي.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر فبراير 7, 2021 أفضل إجابة مشاركة قام بنشر فبراير 7, 2021 جرب هذه المحاولة لعله المطلوب print hidden first three rows.xlsm 2 رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر فبراير 8, 2021 الكاتب مشاركة قام بنشر فبراير 8, 2021 مشكور استاذ العزيز عبدالفتاح قمت في التغيير في الكود في حال وجود صفحات كثير بنفس النمط لطباعة الورقة النشطة فقط هذا السطر Sheets("موازنة 2020").PrintOut الى ActiveSheet.PrintOut تحياتي لحضرتك والله يجعلها في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 8, 2021 مشاركة قام بنشر فبراير 8, 2021 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 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها