السلام عليكم
الاساتذة الافاضل والاخوة الاعزاء جزاكم الله خير
شكرا لكل من حاول من الاساتذة والاخوة الاعزاء لمساعدتي
ولتعم الفائدة وجدت الكود الذي يعمل ذلك
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