اريد كود لأيقونة خروج بشرط تغلق برنامج الاكسل نهائيا وايقونه طباعة

[الو11111في]

السلام عليكم

بليز ابي كود اضعه في زر ( خروج ) في برنامج خاص بي

انا وضعت الدالة

ActiveWorkbook.Close

لكنها لم تخرجني من برنامج الاكسل نهائيا

فقط اغلق الصفحه وبقي برنامج الاكسل يعمل في الواجهه

وايضاً عندي ايقونه ( طباعة )

وضعت الكود التالي :

ActiveWorkbook.PrintOut

لكن واجهت مشكلة وهي ان هذا الكود يطبع حتى الخلايا المخفيه في الجدول

انا اريد اطبع البيانات الظاهرة

ولا اريد طباعة البانات المخفيه

اتمنى تساعدوني

[جمال عبد السميع]

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

كود خروج.rar

[أبو حنــــين]

او استعمل هذا الكود للخروج النهائي

Application.Quit

[الو11111في]

مشكورين ربي يسعد ايامكم دنيا وآخره

ايقونة الخروج انتهينا من مشكلتها

بقي ايقونه الطباعة

ياليت تساعدوني ولو تكتبوا الدالة التي اضعها وانا احدد الخلايا بنفسي

شكرا يا محمود

وشكرا يابو حنين

[عبدالله المجرب]

جرب ان تسجل مايكرو بالنطاق المراد طباعته

ثم استخدم سطر الطباعة والنطاق

[جمال عبد السميع]

بعد إذن أساتذتي العظام هذا هو المطلوب مجمع وكله من فيض علم

أساتذتي الذي خطوت علي يديه أولي درجات تعليم الأكسيل ( عبد الله المجرب )

وأستاذي ومعلمي ( رجب جاويش )

وأخي وأسناذي الرائع (أبو حنين )

كود خروج.rar

[الو11111في]

اكرر لكم شكري

مشكلة الخروج الحمد لله تم حلها

بس باقي الطباعة

ياليت تقولون لي طريقة المايكرو

او تنزلون لي مرفق مثال

وانا ان شاء الله اطبقه على برنامجي

الله لايحرمكم الاجر والثواب في هذا الشهر الكريم

[احمدزمان]

أما كود الطباعة لابد من مرفق لتحديد الداتة المطلوب طباعتها من عدمة

جرب ان تسجل مايكرو بالنطاق المراد طباعته

ثم استخدم سطر الطباعة والنطاق

اخي الكريم

عطنا حاجة ملموسة

اكواد الطباعة كثير

[عبدالله المجرب]

نورت استاذ ابو ابراهيم (احمد زمان )

كل سنة وانت طيب

[الو11111في]

ارفقت لكم الملف اتمنى المساعدة

اريد فقط طباعة الجدول دون غير من الخلايا المخفية من الصف 40 الى 60

وآسف اني ازعجتكم معي

مثال.rar

تم تعديل أغسطس 3, 2012 بواسطه الو11111في

[جمال عبد السميع]

أتمني أخي أن يحقق هذا ماتريد

مثال.rar

[احمدزمان]

نورت استاذ ابو ابراهيم (احمد زمان )

كل سنة وانت طيب

كل عام وانته بخير اخي الحبيب والقريب من القلب ابو احمد

تقبل الله منكم الصيام و القيام وصالح الأعمال

[احمدزمان]

أتمني أخي أن يحقق هذا ماتريد

اخي محمود حل صحيح مية في المية

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

واختصارا

ActiveSheet.Range("A1:L28").PrintOut

مع التحية

[الو11111في]

يعطيك العافيه اخوي محمود ربي يوفقك ويسعدك

بس راح اجرب الطباعه بعد يومين بالعمل

وشكرا مقدما

[الموسطي]

هل من الممكن طباعة الخلايا المشغولة فقط أما الفارغة فلا

[khja]

السلام عليكم 

اخي اريد عمل ايقونة طباعة و ايقونة خروج وحفظ من الاكسل

اريد كيفية عملهن بالتفصيل