بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
8 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه asad1391
-
-
احسن الله اليكم
وبارك الله فيك يابو ايمان وهذا هو المطلب تماما
وجزاكم الله خيرا
-
جزاكم الله خيرا ونفع بكم الاسلام والمسلمين
وحفظكم الله جميعا
-
pdf
حفظكم الله
-
حفظ كل ما في القائمة المنسدلة كما في كود الطباعة
-
اشكرك ابو ايمان على جهدك
ولكن لم يعمل الكود معي كما ارغب في حفظ كل ما في القائمة المنسدلة
-
السلام عليكم ورحمة الله وبركاته وبها نبدأ
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
هل من الممكن تحويل هذا الكود الذي في الاعلا من طباعة الملفات في القائمة المنسدلة الى حفظها كلها ثم طباعتها
ولكم الشكر والتقدير
-
السلام علكم ورحمة الله وبركاته
عند الطباعة او المعاينة من اليوزر فوم مباشرة يختفي اليوزر ولا تظهر المعاينة فما حل هذه المشكة
علما أنه عند التجربة والاكسل مفتوح يعمل تمام
والله يحفظكم ويرعاكم
تحويل كود من الطباعة الى الحفظ
في منتدى الاكسيل Excel
قام بنشر
اشكر الجميع علي حسن التعامل وجميل التعاون