مصطفى محمود مصطفى قام بنشر سبتمبر 11, 2018 مشاركة قام بنشر سبتمبر 11, 2018 (معدل) السلام عليكم ورحمة الله وبركاته الكود التالي هو لطباعة الكل لكن محدد بعدد عندما اضع له رقم 1 يعني ورقة واحدة يقوم بطباعة الثانية اما اذاكان العدد اكبر من واحد يعمل بشكل صحيح لااعرف المشكلة ارجو تعديله مع وافر الاحترام والتقدير Sub طباعة() Range("n3").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$B$2:$m$42" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("d1").Value Range("E1").Select End Sub كود الطباعة.xlsm تم تعديل سبتمبر 11, 2018 بواسطه مصطفى محمود مصطفى رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر سبتمبر 11, 2018 مشاركة قام بنشر سبتمبر 11, 2018 قم بإنقاص العدد الموجود في الخلية D1 بمقدار (1) إن لم تستطع ذلك بمعادلة اذهب لخلية أخرى واكتب المعادلة =(d1)-1 وقم بتغيير Range ("d1") إلى اسم الخلية الجديدة 1 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر سبتمبر 11, 2018 الكاتب مشاركة قام بنشر سبتمبر 11, 2018 شكرا لكم استاذ احمد المشكلة برقم 1 يطبع اثنين اذا كان واحد اما اذا اكثر يطبع عادي بدون مشاكل ارفقت ملف للتوضيح تحياتي لكم رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر سبتمبر 11, 2018 مشاركة قام بنشر سبتمبر 11, 2018 السلام عليكم ورحمة الله جرب الكود التالي بدل الآخر: Sub طباعة() Range("n3").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$B$2:$m$42" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 If ActiveCell.Value > Range("d1").Value Then ActiveCell.Value = Range("d1").Value: Exit Sub ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("d1").Value Range("E1").Select End Sub 2 رابط هذا التعليق شارك More sharing options...
عبدالله 99 قام بنشر سبتمبر 11, 2018 مشاركة قام بنشر سبتمبر 11, 2018 (معدل) دالة تقوم بحساب تلقائي بناء عن السنة الميلادية اخر طلب لي لوسمحتم رجاء خاص انا اسف على التجاوز تم تعديل سبتمبر 11, 2018 بواسطه أ / خالد الفيصل رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر سبتمبر 11, 2018 الكاتب مشاركة قام بنشر سبتمبر 11, 2018 الاستاذ الفاضل بن علية حاجي وفقكم الله وحفظكم من كل سوء كود اكثر من رائع لكم وافر احترامي وتقديري رابط هذا التعليق شارك 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.