السلام عليكم ورحمة الله وبركاته وبها نبدأ
Sub PrintOut()
For i = 1 To [INDIRECT(B3)].Rows.Count
[d3] = Application.Index([INDIRECT(B3)], i)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
[d3] = Application.Index([INDIRECT(B3)], 1)
End Sub
هل من الممكن تحويل هذا الكود الذي في الاعلا من طباعة الملفات في القائمة المنسدلة الى حفظها كلها ثم طباعتها
ولكم الشكر والتقدير