احتواء الطباعة

[خالد الشاعر]

السادة الخبراء

اريد طباعة تحديد معين من صفحة شيت اكسل

ولكن هذا التحديد اكبر من مقاس الورقة A4 فهل ممكن نجعل اكسل يصغر

زوم الطباعة اتوماتك لكى يتناسب مع حدود الطباعة

ارجو اكون وضحت الفكرة

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

[احمدزمان]

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

اخي الفاضل غانا

هذه الخاصية موجودة فعلا في اكسل

تدخل الى اعداد الصفحة

Page Setup

في اول تبويب تجد الملائمة الى Fit To

تحدد عدد الأوراق طولا وعرضا

مع التحية

[خالد الشاعر]

استاذ احمد زمان

اشكرك على سرعه الرد و الاهتمام

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

فى Page Setup نصغر ال Zom لكى يطبع المعلومات فى ورقة واحدة A4

هل ممكن يكون كود يعمل هذا الوظيفة يصغر الزوم للطباعة لكى تقبل ورقة و احدة A4

ولكم جزيل الشكر

تم تعديل نوفمبر 17, 2012 بواسطه khhanna

[يوسف السيد]

كمت قال الاخ الفاضل / احمد زمان يمكنك فعل ذلك من خيارات الطباعة

واذا اردت الكود ... ما عليك الا تسجيل الماكرو

[احمدزمان]

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

بعد اذن اخي يوسف

    With ActiveSheet.PageSetup

	    .Zoom = False

	    .FitToPagesWide = 1

	    .FitToPagesTall = 1

    End With

[خالد الشاعر]

اشكركم جميعاً

شكراً استاذ احمد على المجهود

ولكن الكود لا يعمل المطلوب

الف شكر

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أحمد يعقوب حفظكم الله

جزاكم الله كل خير وبارك بكم وفيكم وفي ذريتكم.

الكود يعمل بدقة وكفاءة عالية.

أخي الفاضل أرجو أضافة الكود في مكانه الصحيح أي تستبدل الأسطر الثلاثة الأساسية في الكود وهي:

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = 1

عوضاً عن ما هو في كودك وهو السطر أدناه:

.Zoom = 100

أرجو أن أكون ساعدت على الإيضاح.

أبو أنس

عذراً سيدي أحمد يعقوب على التطفل.

تم أضافة ملف لاحقاً لكود طباعة التوضيح داخل الكود أيضاً

طباعة Zoom.rar

[خالد الشاعر]

استاذ ابو انس

الف شكر تسلم ايدك

استاد احمد زمان الف الف شكر

تسلم ايديكم جزاكم الله كل خير

[احمدزمان]

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

اخي الفاضل ابو انس جزاك الله كل خير على ملاحظاتك الدقيقة

اخي غانا بالتوففيق دائما جزاك الله كل خير

[علي المصري]

شكرا جزيلا