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

طباعة جميع صفحات ناحية الطباعة في شيت واحد


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

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

الاساتذة الكرام وفقكم الله وحفظكم

هذا كود لطباعة جميع الشهادات وضعته في شيت واحد به 8 تنسيقات ناحية الطباعة

Sub Print_All()
  For i = 1 To [F1]
    [G1] = i
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
  Next
  [G1] = 1
End Sub

اي في الشيت الواحد 8 صفحات طباعة .من عرض معاينة فواصل الصفحات وحددت واحدة تعيين ناحية الطباعة واضفت الصفحة الثانية من خلال اضافة الى ناحية الطباعة وهكذا لثماني صفحات في شيت واحد

وعملت الكود اعلاه لكنه يطبع الصفحة  الاولى فقط ويترك الباقي هل من كود او تعديل على هذا الكود بحيث يطبع جميع صفحات الطباعة في الشيت الواحد 8 او اكثر

لان البيانات تتغير بكل طباعة 8 اوراق يعني لكل ثماني صفحات بيانات تختلف احيانا خمس او اربع مرات تتغير حسب العدد في الخلية G1

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

 

طباعة جميع الصفحات.xlsm

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

السلام عليكم

الاساتذة الافاضل والاخوة الاعزاء جزاكم الله خير

شكرا لكل من حاول من الاساتذة والاخوة الاعزاء لمساعدتي

ولتعم الفائدة وجدت الكود الذي يعمل ذلك

Sub most_all()
  For i = 1 To [F1]
    [G1] = i
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
  Next
  [G1] = 1
End Sub

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

طباعة جميع الصفحات.xlsm

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

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

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



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

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

Important Information