كود مايكرو لطباعه الجزء المحدد بالماوس

[ابو طيبه]

السلام عليكم مشكور على هاذا الابداع والتميز . 
هل ممكن عمل كود لطباعه الخلايا المحدده بالماوس فقط وان تكون بنفس موقع المؤشر عليها في الملف تظهر على الورقه بنفس الموقع مثلا لنفترض نحدد بالماوس خليه في الصف الخامس من الصفحة وخليه في الصف العاشر من الصفحه وخليه في اخر صف من الصفحه وعند الطباعه تظهر بنفس الموقع المؤشر  عليه المرفق مثال توضيح للفكره. وشكرا جزيلا لجهودكم

تم تعديل ديسمبر 30, 2019 بواسطه ميلاد طارق

[omar elhosseini]

!_Omar_1.rarالاخ ميلاد طارق

 

شاهد المرفق

 

 

!_Omar_1.rar

[ابو طيبه]

شكرا جزيلا استاذ العزيز 

في حال وجدود جدول هل يمكن طباعه محتويات الخليه المحدده فقط دون حدود الخلايا اذا امكن، 

وبارك الله بيك

[omar elhosseini]

الاخ ميلاد طارق

شاهد المرفق

 

 

 

!_Omar_2.xls

[ابو طيبه]

شكرا جزيلا لك استاذ العزيز عمر الحسيني

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

[ابو طيبه]

استاذ العزيز اشكرك عل تعبك معي

عند طباعه الجزء المحدد

١ اذا كان ناتجه الخليه من معادله لايظهر محتوى الخليه بالطبع ( يظهر الناتج 0 )

٢ ناتج دمج الخليتين او اكثر التي تحتوي على معادله لا ينفذ الكود

٣ عند وجود صوره مدرجه في الصفحة فانها تظهر عند الطباعه الجزء المحدد بالرغم من انها غير محدده.

وشكرا لجهودك

[omar elhosseini]

شاهد المرفق

 

 

!_Omar_3.rar

[ابو طيبه]

مشكور استاذ تعبتك معي بارك الله فيك وبجهودك الكود تمام التمام.

هل يمكن اظافه شعار (صوره)على عرض الصفحه

وطول اربع صفوف واخفائه من الملف 

ويظهر عند الطباعه العاديه ،

ولا يظهر الشعار عند اختيار الجزء المحدد لطباعته

تحياتي لك استاذ العزيز ما قصرت

 

 

 

نموذج لادراج لشعار واخفائه.xlsx

تم تعديل يناير 2, 2020 بواسطه ميلاد طارق

[omar elhosseini]

شاهد المرفق

 

!_Omar_4.rar

[ابو طيبه]

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

!_Omar_3 كود الطباعه.rar اضافه الكود على صفحات هذا الملف.xlsm

[omar elhosseini]

لا تعليق علي مدي مجهود اسبوع ب  6 مداخلات

اذا اردت عدم ظهور اللوجو

For Each Shp In ActiveSheet.Shapes
    If Shp.Type <> msoPicture Then
        Shp.Delete
    End If
Next Shp

اخذف السطر الثاني والسطر الرابع من هذا الجزء من الكود

 

شاهد المرفق

 

!_Omar_5.rar

[omar elhosseini]

ما هي ارقام الصفوف واي شيت

لا اري صفوف مخفية

ام تقصد في حالة اخفاء بعض الصفوف

[omar elhosseini]

شاهد المرفق

 

 

!_Omar_6.rar

[ابو طيبه]

شكرا استاذ العزيز عمر الحسيني على هذا الابداع الفريد بصراحه انت مبدع بكل معنى الكلمة ولا تمل من الاسىله والاستفسارات

واسف جدا من كثرة اسئلتي لك

تستحق كل الاحترام والتقدير الله يحفظك ويبارك بيك 

[omar elhosseini]

تحت امرك اخي

حتي لو جد جديد بخصوص هذا الموضوع فهو شيق وفريد

[ابو طيبه]

 

ما يامر عليك ظالم عاشت ايدك استاذ العزيز اطلعت على مشاركاتك الرائعه بهذا الخصوص وكلها روووووعه روووووعه رووووعه

[omar elhosseini]

لابد ان انوه عن روح المصابره لديك وصبرك وبحثك الدؤوب عن ايجاد حل لهذا الموضوع

لفت انتباهي اليوم انك تجاهد للأيجاد حل للموضوع منذ منتصف اكتوبر 2019

 

طباعه الجزء المحدد في الورقة في نفس موقعه المحدد في الملف وليس في بداية الورقة

من الافضل الأ نفقد الأمل دائما فغدا افضل دائما بإذن الله

[ابو طيبه]

شكرا جزيلا استاذ العزيز 

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

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

ارفقت الملف بالمنتدي وان شاء الله يتوصلون الاساتذه الى الحل الله يبارك بجهودكم جميعا 

تحياتي