Eliminate empty columns from printing

[Eid Mostafa]

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

 

الأخوه الأعزاء

 

 

بالملف المرفق (كود) يقوم بعدم (معاينة) وعدم (طباعة) الأسطر الفارغة

 

فهل بالإمكان إضافة تعديل للكود بحيث يقوم أيضاً بعدم (معاينة) وعدم (طباعة) الأعمدة الفارغة

 

وذلك للمدى (الأعمده) فى النطاق من (عمود E : عمود AC) فقط

وذلك إعتماداً على قيمة كل عمود بالسطر 65

 

أرجو أن أكون قد وفقت فى شرح ما أقصده.

 

خالص شكرى وتقديرى

 

أخوكم

عيد مصطفى

Eliminate empty columns from printing.rar

تم تعديل يوليو 26, 2013 بواسطه Eid Mostafa

[عبدالله باقشير]

السلام عليكم

جرب التعديل التالي

Sub Hide_Rows()
Dim Cel As Range
MsgBox ("You are now in the process set the page settings for printing")
Application.ScreenUpdating = False
W = ActiveSheet.UsedRange.Rows.Count
On Error Resume Next
Range("A1:AE" & W).AutoFilter Field:=1, Criteria1:="<>"
'''''''''''''''''
For Each Cel In Range("E65:AC65")
    If Cel.Value = "" Then Cel.EntireColumn.Hidden = True
Next
''''''''''''''''
ActiveSheet.PrintPreview
Range("AF:AF").AutoFilter
Range("E65:AC65").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub

تحياتي

[Eid Mostafa]

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

 

أخى العزيز / عبدالله باقشير

 

 

بالفعل أخى العزيز لقد وفيت بالمطلوب تماماً

 

أشكرك جزيل الشكر على هذا الحل والتعديل الأكثر من رائع

 

     

 

أعانك الله على أمور حياتك ، وبارك لك فى وقتك وفى عملك وفى أولادك

 

خالص شكرى وتقديرى

 

أخوك

عيد مصطفى
 

تم تعديل يوليو 26, 2013 بواسطه Eid Mostafa