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

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

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

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

هذا كود لطباعة جميع الشهادات وضعته في شيت واحد به 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

تم تعديل ديسمبر 15, 2018 بواسطه مصطفى محمود مصطفى

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

السلام عليكم

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

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

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

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

[Ali Mohamed Ali]

أحسنت جزاك الله كل خير استاذ مصطفى