asad1391

اشكر الجميع علي حسن التعامل وجميل التعاون 

احسن الله اليكم 

وبارك الله فيك يابو ايمان وهذا هو المطلب تماما

وجزاكم الله خيرا

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

وحفظكم الله جميعا

pdf

حفظكم الله

 حفظ كل ما في القائمة المنسدلة كما في كود الطباعة

بيات توزيع المواد الغذائية.xlsm

اشكرك ابو ايمان على جهدك 

ولكن لم يعمل الكود معي كما ارغب في حفظ كل ما في القائمة المنسدلة 

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

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

هل من الممكن تحويل هذا الكود الذي في الاعلا من طباعة الملفات في القائمة المنسدلة الى حفظها كلها ثم طباعتها

ولكم الشكر والتقدير

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

عند الطباعة او المعاينة من اليوزر فوم  مباشرة يختفي اليوزر ولا تظهر المعاينة فما حل هذه المشكة 

علما أنه عند التجربة والاكسل مفتوح يعمل تمام 

والله يحفظكم ويرعاكم