كود توسعة أعمدة

[فتحى ابوالفضل]

السلام عليكم ورحمة الله و بركاتة

كل عام و حضراتكم بخير

مرفق ورقة اكسل عند طباعتها الاعمدة تملئ الورقة و هو المطلوب و عند حذف الاعمدة من العمود L  الى العمود Q  يكون مكانهم فارغ عند الطباعة

ارغب في كود يقوم بتوسعة الاعمدة المتبقية من B إلى K تلقائياً بحيث تكون الورقة كاملة  ممتلئة بالاعمدة الباقية ولا يوجد فراغ ابيض عند الطباعة

المصنف1.xlsb

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

جرب هذا الملف

Option Explicit
Sub Show_hide()
Dim S As Worksheet
Dim i%, Ro%
Set S = Sheets("Salim")
With S
    Ro = .Cells(Rows.Count, 1).End(3).Row
    .Range("B1").Resize(, 17) _
    .EntireColumn.Hidden = False
     For i = 2 To 16 Step 2
        If .Cells(3, i) = vbNullString Then
          .Cells(3, i).Resize(, 2) _
          .EntireColumn.Hidden = True
        End If
     Next
   .PageSetup.PrintArea = _
    .Range("A2").Resize(Ro-1, 17).Address
   .PrintPreview
     
 End With
End Sub
'+++++++++++++++++++++++++++++++++++++++++++++
Sub show_Al_Col()
Sheets("Salim").Range("B:Q").EntireColumn.Hidden = False
End Sub

الملف مرفق

Fathi.xlsm

[فتحى ابوالفضل]

الأخ الفاضل / سليم حاصبيا

اولاً اعتذر عن التأخير في الرد لظروف خاصة

ثانياً دائماً متميز و مبدع بأعمالك

ثالثاًً كود جميل جدا و اقدر تعبك حضرتك فيه ولكن لي طلب اراه بسيط عند حضرتك عند اخفاء الاعمدة الفارغة و طباعة المستند يكون هناك فراغ ابيض عند الطباعة كالورقة المرفقة رقم 1

و المطلوب عند الاخفاء الاعمدة الفارغة يتسع عرض الاعمدة الممتلئة لتملئ الورقة كالمرفق 2

و جزاك الله خيرا

1.pdf 2.pdf

 

[فتحى ابوالفضل]

up