طلب كود لمنع ظهور خلية أثناء الطباعة فقط

[جميل علي]

السلام عليكم

ممكن كود لجعل الكتابة الموجودة في الخلية لا تظهر أثناء الطباعة فقط

 

لا أريد وضع الخلية خارج الهوامش

 

Classeur1.rar

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

حدد الخلية /اذهب الى تنسيق خلية /مخصص/اكتب  مكان  general   ;;;

بهذا تختفي الكلمات منها مع المحافظة على محتوياتها

[جميل علي]

هذا يخفي الخلية تماما أنا اريد أثناء الطباعة فقط لا تظهر

و حتى حواشي الخلية لا تظهر أثناء الطباعة

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

أخي تستطيع وضع  تنسيق هذه الخلية في أول الكود /و في نهاية الكود تسترجع لها تنسيقها الأصلي

[حمادة عمر]

السلام عليكم

كما ذكر اخي الحبيب / سليم

اليك الكود التالي ... جرب واخبرنا بالنتيجة

Sub sama()
With Range("C5")
    .Interior.ColorIndex = xlNone
    .Font.ColorIndex = 2
    .Borders.LineStyle = xlNone
End With

Sheets("Feuil2").PageSetup.PrintArea = "A1:g50"
Sheets("Feuil2").PrintOut

With Range("C5")
    .Interior.ColorIndex = xlAutomatic
    .Font.ColorIndex = 0
    .Borders.LineStyle = xlContinuous
End With

End Sub

تقبلوا خالص تحياتي

[جميل علي]

نسخت الكود و لم ينجح الأمر

ممكن توضيح أكثر أو إرفاق ملف

[حمادة عمر]

شاهد المرفق

اخي الكريم

 

 

Classeur1.rar

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

       Sub myformat ()          

 

    Range("B1").Select                   

 ";;;"  =   Selection.NumberFormat             

 

                                                                                                             ( هنا تكتب كل شيء عن الطباعة)

يمكن تبديل اسم الخلية من   B1  اللى اي خلية تريدها

 

 

               Range("B1").Select                  

   " Selection.NumberFormat = "General                 

End Sub             

[جميل علي]

بارك الله فيكم على صبركم و تجاوبكم معي

ألف شكر لكم