asad1391 قام بنشر يناير 23 مشاركة قام بنشر يناير 23 السلام عليكم ورحمة الله وبركاته وبها نبدأ 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 مشاركة قام بنشر يناير 23 (معدل) اذا كنت ترغب في الحفظ كملف بي دي أف يمكنك استخدام الكود التالي ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & يتم وضع الاسم المراد الحفظ به أو الاشارة الى خلية وسوف يتم تسمية الملف بمحتوى الخلية, Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False أو اذا كنت ترغب بالحفظ العادي يمكنك استخدام this workbook.save تم تعديل يناير 23 بواسطه أبو إيمان 2 رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 24 الكاتب مشاركة قام بنشر يناير 24 اشكرك ابو ايمان على جهدك ولكن لم يعمل الكود معي كما ارغب في حفظ كل ما في القائمة المنسدلة رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 24 مشاركة قام بنشر يناير 24 السلام عليكم اين الملف المراد العمل عليه لاتنتظر مساعده دون ارسال ملف مدعوم بشرح رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 26 الكاتب مشاركة قام بنشر يناير 26 حفظ كل ما في القائمة المنسدلة كما في كود الطباعة بيات توزيع المواد الغذائية.xlsm رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر يناير 26 مشاركة قام بنشر يناير 26 يعطي خطأ في الكود غيرت الى mo1 باسم ورقة الشيت رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 26 مشاركة قام بنشر يناير 26 (معدل) يتم تخزين الفاتورة مكان تواجد الملف الرئيسي تفضل بيات توزيع المواد الغذائية.xlsm بيات توزيع المواد الغذائية (2).xlsm تم تعديل يناير 26 بواسطه محمد يوسف ابو يوسف 1 رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر يناير 27 مشاركة قام بنشر يناير 27 حفظ نشخة كملف اكسيل أو ملف بي دي اف رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 28 الكاتب مشاركة قام بنشر يناير 28 pdf حفظكم الله رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر يناير 29 مشاركة قام بنشر يناير 29 بالفعل يوجدكود بالملف 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 الكاتب مشاركة قام بنشر يناير 29 (معدل) جزاكم الله خيرا ونفع بكم الاسلام والمسلمين وحفظكم الله جميعا تم تعديل يناير 29 بواسطه asad1391 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبو إيمان قام بنشر يناير 29 أفضل إجابة مشاركة قام بنشر يناير 29 بعد إذن أخونا محمد يوسف قم بتجربة الكود في الملف التالي والذي سوف يقوم بالحفظ كملف PDF بشكل تلقائي لكل الأسماء الموجودة في القائمة المنسدلة الموجودة في الخلية D3 بيات توزيع المواد الغذائية 002.xlsm 3 رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 30 الكاتب مشاركة قام بنشر يناير 30 (معدل) احسن الله اليكم وبارك الله فيك يابو ايمان وهذا هو المطلب تماما وجزاكم الله خيرا تم تعديل يناير 30 بواسطه asad1391 رابط هذا التعليق شارك More sharing options...
أبو عبد الله _ قام بنشر يناير 30 مشاركة قام بنشر يناير 30 (معدل) جميل تم تعديل يناير 30 بواسطه أبو عبد الله _ رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر يناير 30 مشاركة قام بنشر يناير 30 وأحسن إليكم ونتمنى لكم التوفيق والشكر موصول للاستاذ بن علية لان هناك اقتباس في الكود من أحد حلوله 1 رابط هذا التعليق شارك More sharing options...
asad1391 قام بنشر يناير 31 الكاتب مشاركة قام بنشر يناير 31 اشكر الجميع علي حسن التعامل وجميل التعاون 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.