اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تحديد الخلايا النشطة فقط أثناء الطباعة


next

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

السلام عليكم

 

ملفك واجهة محرر الاكواد مغلق برقم سري ؟

 

جرب الكود التالي

Option Explicit
Option Base 1
Public Sub Ali_Hed()
On Error Resume Next
' الاعمدة المراد إخفائها
' Range("J:W")' كما هو موضح حاليا
' Range ("A2,E:F,J:W")'واذا اردت الاشاره الى اعمدة معينه متفرقه هكذا
Dim M As Range: Set M = Range("J:W")
ALI_HID_C Sheet1, M
End Sub
Private Sub ALI_HID_C(ALI_SH As Worksheet, SH_A As Range)
With SH_A
 .Columns.EntireColumn.Hidden = 1
   With ALI_SH.PageSetup
     .PrintArea = "$A$7:$AR$30"
     .BlackAndWhite = False
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = 1
      ALI_SH.PrintPreview
     .PrintArea = ""
   End With
 .Columns.EntireColumn.Hidden = 0
End With
End Sub

تم تعديل بواسطه عباد
رابط هذا التعليق
شارك

بعد سلام الله عليكم جميعآ

 

كيف يمكن تحديد خلايا أو أعمدة محددة أثناء الطباعة بحيث تصبح الخلايا أو الاعمدة مجمعة فى صفحة واحدة وليس عدة صفحات  

أخي الكريم

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

مثلا ( هل تريد طباعة التحديد المتعدد في صفحة واحدة ... نعم / لا ؟ )

الحل من وجهة نظري القاصرة هو إلتفافي (work around) :-

1- إخفاء الأعمدة التي لاترغب في طباعتها - حسب ما ذكر الأستاذ/ عباد

2- نسخ الأعمدة التي ترغب في طباعتها في صفحة جديدة ومن ثم طباعتها

وقد قمت بالحل الثاني في الملف المرفق - يمكنك الإطلاع عليه

طباعة أعمدة متفرقة.rar

رابط هذا التعليق
شارك

عزيزي next

محرر الأكواد مغلق برقم سري

إذا أردت المساعدة

برجاء فتح محرر الأكواد

حتى نتمكن من تنفيذ المطلوب

وللعلم الأستاذ عباد

والأخ الفاضل حمادة

قاموا بالمطلوب .

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

تم تعديل بواسطه Akram Galal
رابط هذا التعليق
شارك

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