ماكرو لطباعة صفحات محددة

[الجزيرة]

أخواني الكرام تم شرح الطلب في المرفق : )

Book111.rar

[طارق محمود]

السلام عليكم

أخي عبد الله

تفضل الماكرو

Sub Macro1()


	a = Range("K1 ").Value

	ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, Collate:=True

End Sub

[الجزيرة]

تسلم أخي طارق

جزاك الله كل خير ونفع بك وذريتك الأسلام والمسلمين