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

مصطفى محمود مصطفى · ديسمبر 15, 2018

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

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

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

مصطفى محمود مصطفى · ديسمبر 16, 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