اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

 

يمكنك نقلها بعيداً عن حدود صفحة الطباعة أو يمكن اختار لون الخط أبيض ولون الخلية بدون لون وكذلك الحدود الموجودة بها تكون بلا حدود وبذلك لا تظهر في الطباعة.

قام بنشر

اخى الكريم

جرب هذا الكود

لعله ما تريد

Sub h()
Range("j6").Font.ThemeColor = xlThemeColorDark1
Range("j6").Borders.LineStyle = xlNone
Range("j6").Interior.Pattern = xlNone
Sheet1.PrintPreview
Range("j6").Font.ColorIndex = xlAutomatic
Range("j6").Borders.LineStyle = xlContinuous
Range("j6").Interior.Pattern = xlSolid

End Sub

قام بنشر (معدل)

شكرا ام عبد الله

 

 لا أريد نقلها إلى حدود الصفحة

 

و أريد لون الخط أسود

 

 

ممكن الأخ إبراهيم تطبيق الكود على الملف

 

لأنه لم يعمل معي

تم تعديل بواسطه BACHA22
قام بنشر

الأخ الكريم/ BACHA22

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

بعد إستئذان الأستاذة الفاضلة/ أم عبد الله والأستاذ الفاضل/ إبراهيم ابوليله

جرب المرفق - علي أن تقوم بالمعاينة والطباعة من خلال زر الطباعة المضاف

كما يمكنك التحكم في نطاق الطباعة من خلال تغيير المدي داخل الكود .

تقبل تحياتي

 

Classeur2-Hide Certain Cells From Print.rar

قام بنشر

شكرا يا أخي  حمادة با شا

 

الكود عمل بشكل جيد

 

 

لكن حبذا لو  بدون زر طباعة

 

أريد طباعة إفتراضية  بدون زر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information