طباعة بشرط فى ملف

[محمد مصراوى]

السلام عليكم
كنت محتاج مساعدة الاخوة الاعزاء فى ملف شغال علية
فى صفحة copy
كنت محتاج اعمل زرار للطباعة ويكون بشرط
اخفاء الاعمدة 
k , o , s , x , n ,  واى عمود اخر
انا عامل اخفاء الصف وارجاعة ولاكن فى الاعمدة مش مضبط معايا

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

q.xls

تم تعديل أبريل 2, 2019 بواسطه محمد مصراوى

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

توجد مشكلة في الملف

 

[محمد مصراوى]

الملف مش معطوب
اعمل enable  لان فى ماكور والملف اوفيس 2003 

 

[محمد مصراوى]

4 ساعات مضت, محمد مصراوى said:

السلام عليكم
كنت محتاج مساعدة الاخوة الاعزاء فى ملف شغال علية
فى صفحة copy
كنت محتاج اعمل زرار للطباعة ويكون بشرط
اخفاء الاعمدة 
k , o , s , x , n ,  واى عمود اخر
انا عامل اخفاء الصف وارجاعة ولاكن فى الاعمدة مش مضبط معايا
q.xlsويكون حجم المربع الكتوب فية بحجم مناسب للقراءة
لان على هذا الوضع الحج بيكون صغير فى الطباعة
ويوجد اسفل الجدول ايضا بيانات خاصة بالطلبية وهذة هى الصفحة الثانية ايضا اريد فيها امر الطباعة ويكون خاص بيها فقط
 

 

الملف بصيخة اوفيس 2016 بس الماكرو مش حيشتغل

q.xlsx

[محمد مصراوى]

اية ياجماعة ارجوا الافادة

[محمد مصراوى]

هو الملف تالف ولا الموضوع صعب ولا الاخوة مشغولين
محتاج حل لو سمحتم

[نبيل عبد الهادي]

اذا كنت تقصد اخفاء الاعمدة التي مجموعها = (0)

استخدم الكود التالي

Sub print1()
Application.ScreenUpdating = False
'اخفاء الاعمدة في الصف (39) ضمن المدى المحدد والتي مجموعها صفر
Sheets("copy").Select
Dim CL As Range
    For Each CL In [C39:AS39]
               If CL = 0 Then CL.EntireColumn.Hidden = True
    Next CL
 '----------------------------------------
 'طباعة
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
'-----------------------------------------
'اظهار الاعمدة المخفية بعد الطباعة
      Columns("A:AT").Select
    Selection.EntireColumn.Hidden = False
       Range("C2").Select
     Application.ScreenUpdating = False
     
End Sub

 

[محمد مصراوى]

شكرا اخى الكريم "نبيل"
لو انا دخلت شيت اخر محتاج اطبعة هو فقط وليس ال copy
حغير اسم الشيت فى المعادلة ولا اية
انا كنت محتاج اعمله زرار يضغط فيطبع الصفحة الحالية
وكنت محتاج ان المحتوى اللى اختارتة يكبر فى حجم الطباعة علشان اى حد يقدر يشوف الارقام
وشكرا لاهتمامك 
جزاك الله خيرا
 

[نبيل عبد الهادي]

اخي الكريم محمد 

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

حجم الطباعة يكون من خلال ضبط اعدادات الطباعة في الورقة من حيث اتجاه الورقة والعرض والطول وملائمة الطباعة والكود يعمل حسب هذه الاعدادات .

علما ان البيانات لديك في الورقة تعبر كبيرة نوعا ما  واعتقد مايلائمها حجم طباعة ورقة A3 .. تحياتي