كود لاخفاء واظهار عمود نصف العام وعمودين اخر العام

[كباكا]

مطلوب كود لاخفاء واظهار عمود نصف العام
وعمودين اخر العام
فى كل مادة بحيث انى اظهر العمود للكتابة
واخفيه اثناء الطباعة بزرار اخفاء وزرار اظهار.
لان المطلوب عند الطباعة المجموع والمستوى
وتقبل سيادتكم وافر التحية والاحترام , وشكراشيتt.xlsشيتt.xls

شيتt.xls شيتt.xls

[الـعيدروس]

السلام عليكم

بالامكان استخدام الكود التالي للطباعه

اخفاء الاعمدة عند الطباعه واظهارها فور الانتهاء

Sub Ali()
Dim Rng As Range
Set Rng = [L:N]
With Rng
    .EntireColumn.Hidden = True
      ActiveSheet.PrintPreview ' PrintOut
    .EntireColumn.Hidden = False
End With
Set Rng = Nothing
End Sub

 

[كباكا]

 

 

شيتt.xls

[الـعيدروس]

اطلع على المرفق اضغط زر طباعه

Print_Hid.xls