كود الطباعة يتجاوز العدد المقيد بورقة واحدة

[مصطفى محمود مصطفى]

السلام عليكم ورحمة الله وبركاته

الكود التالي هو لطباعة الكل لكن محدد بعدد عندما اضع له رقم 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 بواسطه مصطفى محمود مصطفى

[احمد بدره]

قم بإنقاص العدد الموجود في الخلية D1 بمقدار (1)

إن لم تستطع ذلك بمعادلة  اذهب لخلية أخرى واكتب المعادلة =(d1)-1

وقم بتغيير Range ("d1") إلى اسم الخلية الجديدة

[مصطفى محمود مصطفى]

شكرا لكم استاذ احمد

المشكلة برقم 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
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

 

[عبدالله 99]

 

دالة تقوم بحساب تلقائي بناء عن السنة الميلادية

اخر طلب لي لوسمحتم رجاء خاص

انا اسف على التجاوز

تم تعديل سبتمبر 11, 2018 بواسطه أ / خالد الفيصل

[مصطفى محمود مصطفى]

الاستاذ الفاضل بن علية حاجي

وفقكم الله وحفظكم من كل سوء

كود اكثر من رائع

لكم وافر احترامي وتقديري