محمد_عبد_الوهاب قام بنشر يوليو 4, 2012 قام بنشر يوليو 4, 2012 الاساتذة الافاضل السلام عليكم اريد التعديل في الكود التالي وهو خاص بطباعة نطاق معين بناء علي شرط في خليه ليصبح عدد نسخ الطباعة 2 تلقائياً للصفحة الكود Sub طباعة_1() If ActiveSheet.[i1] = True Then ActiveSheet.PageSetup.PrintArea = "A1:h44" ActiveSheet.PrintOut End If UserForm2.Hide Sheets("Main").Select End Sub شكراااا
محمد يحياوي قام بنشر يوليو 4, 2012 قام بنشر يوليو 4, 2012 الاخ الفاضل اضف هذا الكود ActiveSheet.PrintOut copies:=2
محمد_عبد_الوهاب قام بنشر يوليو 4, 2012 الكاتب قام بنشر يوليو 4, 2012 الف الف شكر علي الرد الجميل وعلي سرعة الرد اكثر في هذا المنتدي الرائع بارك الله فيك .. وجزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.