asad1391 قام بنشر يناير 23, 2023 مشاركة قام بنشر يناير 23, 2023 السلام عليكم ورحمة الله وبركاته وبها نبدأ 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 هل من الممكن تحويل هذا الكود الذي في الاعلا من طباعة الملفات في القائمة المنسدلة الى حفظها كلها ثم طباعتها ولكم الشكر والتقدير رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر يناير 23, 2023 مشاركة قام بنشر يناير 23, 2023 (معدل) اذا كنت ترغب في الحفظ كملف بي دي أف يمكنك استخدام الكود التالي ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & يتم وضع الاسم المراد الحفظ به أو الاشارة الى خلية وسوف يتم تسمية الملف بمحتوى الخلية, Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False أو اذا كنت ترغب بالحفظ العادي يمكنك استخدام this workbook.save تم تعديل يناير 23, 2023 بواسطه أبو إيمان 2 رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 24, 2023 الكاتب مشاركة قام بنشر يناير 24, 2023 اشكرك ابو ايمان على جهدك ولكن لم يعمل الكود معي كما ارغب في حفظ كل ما في القائمة المنسدلة رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 24, 2023 مشاركة قام بنشر يناير 24, 2023 السلام عليكم اين الملف المراد العمل عليه لاتنتظر مساعده دون ارسال ملف مدعوم بشرح رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 26, 2023 الكاتب مشاركة قام بنشر يناير 26, 2023 حفظ كل ما في القائمة المنسدلة كما في كود الطباعة بيات توزيع المواد الغذائية.xlsm رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر يناير 26, 2023 مشاركة قام بنشر يناير 26, 2023 يعطي خطأ في الكود غيرت الى mo1 باسم ورقة الشيت رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 26, 2023 مشاركة قام بنشر يناير 26, 2023 (معدل) يتم تخزين الفاتورة مكان تواجد الملف الرئيسي تفضل بيات توزيع المواد الغذائية.xlsm بيات توزيع المواد الغذائية (2).xlsm تم تعديل يناير 26, 2023 بواسطه محمد يوسف ابو يوسف 1 رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر يناير 27, 2023 مشاركة قام بنشر يناير 27, 2023 حفظ نشخة كملف اكسيل أو ملف بي دي اف رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 28, 2023 الكاتب مشاركة قام بنشر يناير 28, 2023 pdf حفظكم الله رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 29, 2023 مشاركة قام بنشر يناير 29, 2023 بالفعل يوجدكود بالملف PDF و ايضاً xlsm لتوضيح تفضل نسخة من بيات توزيع المواد الغذائية (2).xlsm الكود المستخدم Sub PDF() Dim fName As String Application.ScreenUpdating = False ' Application.DisplayAlerts = False '' With Worksheets("mo1") fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Cells(3, 6).Text, Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Application.ScreenUpdating = True ' Application.DisplayAlerts = True '' End Sub 2 رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 29, 2023 الكاتب مشاركة قام بنشر يناير 29, 2023 (معدل) جزاكم الله خيرا ونفع بكم الاسلام والمسلمين وحفظكم الله جميعا تم تعديل يناير 29, 2023 بواسطه asad1391 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبو إيمان قام بنشر يناير 29, 2023 أفضل إجابة مشاركة قام بنشر يناير 29, 2023 بعد إذن أخونا محمد يوسف قم بتجربة الكود في الملف التالي والذي سوف يقوم بالحفظ كملف PDF بشكل تلقائي لكل الأسماء الموجودة في القائمة المنسدلة الموجودة في الخلية D3 بيات توزيع المواد الغذائية 002.xlsm 3 رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 30, 2023 الكاتب مشاركة قام بنشر يناير 30, 2023 (معدل) احسن الله اليكم وبارك الله فيك يابو ايمان وهذا هو المطلب تماما وجزاكم الله خيرا تم تعديل يناير 30, 2023 بواسطه asad1391 رابط هذا التعليق شارك More sharing options...
أبو عبد الله _ قام بنشر يناير 30, 2023 مشاركة قام بنشر يناير 30, 2023 (معدل) جميل تم تعديل يناير 30, 2023 بواسطه أبو عبد الله _ رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر يناير 30, 2023 مشاركة قام بنشر يناير 30, 2023 وأحسن إليكم ونتمنى لكم التوفيق والشكر موصول للاستاذ بن علية لان هناك اقتباس في الكود من أحد حلوله 1 رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 31, 2023 الكاتب مشاركة قام بنشر يناير 31, 2023 اشكر الجميع علي حسن التعامل وجميل التعاون 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان