KHMB قام بنشر يوليو 5, 2011 قام بنشر يوليو 5, 2011 السلام عليكم ورحمة الله وبركاتة اخواني طلب كود إلغاء زر الطباعة بشريط ادوات الإكسل او عدم تفعيلة بحيث تكون الطباعة عن طريق الزر بالبرنامج فقط
الـعيدروس قام بنشر يوليو 5, 2011 قام بنشر يوليو 5, 2011 السلام عليكم اخي اطلع على المرفق وحاول تطبع المدى الملون بالاصفر عن طريق CTRL+F2 او امر طباعه الذي في قائمة الاكسل لن يقبل الا عن طريق زر طباعه المدى الملون هذا الكود حطه في ThisWorkbook Option Explicit Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "ورقة1" Then If Sheets("ورقة1").Range("xfd1").Value = "3" Then Cancel = True End If End If End Sub عمل الكود هو فرض الطباعه بشرط اذا كانت خلية xfd1 بها رقم 3 يلغي الطباعه في الورقة وجواب الشرط معمول في الزر الذي عامله انا هذا هو Private Sub CommandButton1_Click() Range("xfd1").Value = "" Range("a1:i9").PrintOut Range("xfd1").Value = "3" End Sub لاحظ عملت في اول تنفيذ ماكرو الزر تفريغ الخليه المعنيه وبعد تنفيذ ماكرو الطباعه يسترجع القيمة السابقة في الخليه تفضل المرفق لاطول عليك تقييد الطباعه بشرط.rar
KHMB قام بنشر يوليو 5, 2011 الكاتب قام بنشر يوليو 5, 2011 (معدل) السلام عليكم ورحمة الله وبركاتة اخي العيدروس عاجر عن الشكر لك من عدة نواحي اولا على سرعة الرد ثانياً على مشاركاتك الجمه والتى استفاد منها الكثير ثالثاً على روحك الرياضية والتي تنم على المعدن الطيب لكريم شخصكم. وصلت لمبتغاي بطريقة اخرى اسهل جداً وذلك من منتدى جامعة اهلا عرب بقسم الفيجوال بيسك للاخ رغيد الطيب اللى هو الآن كبير القوم علماً واخلاقاً (خبور خير) مرفق الملف كلمتان ورسالة فقط تقييد الطباعة بزر البرنامج.rar تم تعديل يوليو 5, 2011 بواسطه KHMB
الـعيدروس قام بنشر يوليو 5, 2011 قام بنشر يوليو 5, 2011 السلام عليكم جزاك الله خير اخي على كلماتك الطيبه وبالنسبه للكود المرفق حل جميل جدا ومختصر تحياتي
الحسامي قام بنشر يوليو 5, 2011 قام بنشر يوليو 5, 2011 السلام عليكم اخي الكريم بالنسبة للملف الاخير هنا شئ ناقص في الكود حيث انه يقوم بتعطيل الطباعة نهائيا حتى مع تخصيص زر للطباعة فيجب عليك اعادة الطباعة للتطبيق كما فعل اخي ابو نصار او يمكنك تعطيل حدث " ما قبل الطباعة " بإستخدام الأمر "EnableEvents" بحيث يكون كود زر الطباعة على النحو التالي Sub print_() Application.EnableEvents = False '.............. أمر الطباعة ......................... Application.EnableEvents = True End Sub أخي ابو نصار مجهود تشكر عليه بالفعل
الـعيدروس قام بنشر يوليو 5, 2011 قام بنشر يوليو 5, 2011 السلام عليكم مشكور استاذي الحسامي على الثناء وجزاك الله خير على اكمال الكود
KHMB قام بنشر يوليو 5, 2011 الكاتب قام بنشر يوليو 5, 2011 (معدل) السلام عليكم ورحمة الله وبركاتة شكرا اخينا ومشرفنا العزيز عماد جزاك الله خير الجزاء اخي انت غني عن التعريف منذو القدم ولانستطيع ان نوفًيك حقك ابداً إلاً بالدعاء لك في ظهر الغيب ياريت ان توافينا برابط اخينا ابو نصار لكي نستفيد اكثر تم تعديل يوليو 5, 2011 بواسطه KHMB
الحسامي قام بنشر يوليو 6, 2011 قام بنشر يوليو 6, 2011 اخي الحبي بارك الله فيك هنا مرفق ملفين للحالتين عسى ان تستفيد منهما تقييد الطباعة بزر البرنامج1.rar تقييد الطباعة بزر البرنامج2.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.