hicham2610 قام بنشر نوفمبر 19, 2018 مشاركة قام بنشر نوفمبر 19, 2018 السلام عليكم من فضلكم لماذا تخرج رسالة الخطإ عند الضغط على oui في اختيار هل تريدها مجتمعة في ملف واحد؟ With ActiveSheet .PageSetup.Zoom = False .PageSetup.FitToPagesTall = 1 '1 page en hauteur, détermine le zoom If rep = 6 Then 'Oui a = .PageSetup.PrintArea h = .Range(a).Rows.Count الجملة الأخيرة بالأصفر الملف مرفق وزر الكود في طبع النتائج في الورقة: bulletins_tre 1 وجزاكم الله خيرا imprimerbulletins .xlsm رابط هذا التعليق شارك More sharing options...
Emad Sabry قام بنشر نوفمبر 19, 2018 مشاركة قام بنشر نوفمبر 19, 2018 (معدل) تم الحل متنساش علامتين التنصيص "" مع range بالاضافة الى تحديد المدى اللى هو من a :o50 وتم تعدلها 3 مرات فى الكود imprimerbulletins .xlsm تم تعديل نوفمبر 19, 2018 بواسطه Emad Sabry رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.