اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

تم تعديل بواسطه مصطفى محمود مصطفى
رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

 

  • Like 2
رابط هذا التعليق
شارك

 

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

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

تم تعديل بواسطه أ / خالد الفيصل
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information