ناصر سعيد قام بنشر يونيو 12, 2017 مشاركة قام بنشر يونيو 12, 2017 هذا ملف به ارقام جلوس الطلاب ... كل صفحه بها 9 ارقام جلوس اريد تفعيل هذا الكود الخاص بالمحترم بن عليه .. جزاه الله عنا كل خير وجزاكم الله كل خير Sub Print_FROM_TO() For I = [P2] To [Q2] Step 4 If I >= [U1] And I <= [U2] Then [I9] = I ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next [I9] = [U1] End Sub طباعــــــة بن عليه.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يونيو 12, 2017 مشاركة قام بنشر يونيو 12, 2017 السلام عليكم ورحمة الله تفضل أخي الملف المرفق وبه المطلوب... تقبل الله منا ومنكم ومن كل المسلمين الصلاة والصيام والقيام وصالح الأعمال أخوك بن علية طباعــــــة بن عليه.rar 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يونيو 12, 2017 الكاتب مشاركة قام بنشر يونيو 12, 2017 اخي المحترم بن عليه جزاك الله كل خير ... وبعد بعد الضغط على زر الطباعه لايحدث الطباعه ولا ادري ما السبب رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يونيو 12, 2017 مشاركة قام بنشر يونيو 12, 2017 (معدل) السلام عليكم ورحمة الله لم يحدث طباعة لأحد السببين التاليين : - إما أن اختيار قيم من ... إلى ... فيه خطأ : اختيار قيمتي من... و إلى ... ليستا من قيم المجال [V5 ، V6] - وإما أن يكون مستوى حماية الماكرو مرتفعا (مما يعني أن الماكرو غير مفعلة). ليس لي اقتراح آخر... بن علية حاجي تم تعديل يونيو 12, 2017 بواسطه بن علية حاجي رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يونيو 12, 2017 الكاتب مشاركة قام بنشر يونيو 12, 2017 اخي المحترم بن عليه جزاك الله كل خير ... وبعد مجرد سؤال : هل جربت الكود على طابعه او طابعه وهميه ؟ اختيار قيم من ... إلى ... فيه خطأ : اختيار قيمتي من... و إلى ... من قيم المجال [V5 ، V6] مستوى حماية الماكرو منخفضه (مما يعني أن الماكرو مفعل ). =============== اختيار قيم من ... إلى ... ليس فيه خطأ : اختيار قيمتي من... و إلى ... من قيم المجال [V5 ، V6] رابط هذا التعليق شارك More sharing options...
أفضل إجابة بن علية حاجي قام بنشر يونيو 12, 2017 أفضل إجابة مشاركة قام بنشر يونيو 12, 2017 السلام عليكم ورحمة الله معذرة لقد قمت بتغيير مكان خلايا الخاصية من... إلى... في الشيت (من السطر الثالث إلى السطر الثاني) وغفلت على التعديل في الكود... المهم يمكنك القيام بذلك بتغيير الأمر التالي في الكود: For I = [T3] To [U3] Step 9 بالأمر : For I = [T2] To [U2] Step 9 معذرة مرة أخرى... يمكنك أيضا تحميل الملف المرفق الذي تم فيه التصحيح... بن علية حاجي طباعــــــة بن عليه.rar 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يونيو 12, 2017 الكاتب مشاركة قام بنشر يونيو 12, 2017 Sub Print_FROM_TO() 'هذا الكود خاص بالمحترم بن عليه حاجي 'وهو من اهلنا بالجزائر حفظهم الله ورعاهم 'الهدف من الكود طباعه صفحات 'كل صفحه تحتوي على 9 'تحديد الطباعه من ... الى والخطوة 9 For I = [T2] To [U2] Step 9 If I >= [V5] And I <= [V6] Then [B6] = I ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next [B6] = [V5] End Sub حفظك الله ورعاك الاستاذ المحترم بن عليه حاجي جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان