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 هل من الممكن تحويل هذا الكود الذي في الاعلا من طباعة الملفات في القائمة المنسدلة الى حفظها كلها ثم طباعتها ولكم الشكر والتقدير

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