لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب استخراج بيانات متخصصة لصفحة مستقلة اكسل وpdfمن جدول فعاليات اكسيل اسئله واجابات



مرحبا بك في منتديات أكاديمية الصقر للتدريب.
أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .







13-02-2024 06:42 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 244
الجنس :
تاريخ الميلاد : 24-9-1981
الدعوات : 1
قوة السمعة : 348
الاعجاب : 5
السلام عليكم ورحمه الله وبركاته
الاخوه الافاضل
اريد كود يقوم بطباعه ملفات البدى اف 
الموجده فى فولدر
مره واحده



توقيع :EM_ACC
إبراهيم أبوليله

look/images/icons/i1.gif اريد كود لطباعه جميع ملفات البى دى اف مره واحده
  22-02-2024 03:57 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
وعليكم السلام-تفضل هذا الكود على الرغم انك لم تقم برفع ملف لطلبك
CODE
Sub ExportEachSheet2PDF()[/b]
[b]Dim objWS As Worksheet[/b]
[b]Dim strFileName As String[/b]
[b]Dim strPath As String[/b]
[b]Dim strCrntWS As String[/b]
[b]strPath = ThisWorkbook.Path 'Assigned current file path[/b]
[b]strCrntWS = ActiveSheet.Name 'Assigned current sheetname[/b]
[b]Application.ScreenUpdating = False 'Disabled screen updating[/b]
[b]For Each objWS In Worksheets[/b]
[b]'objWS.Select[/b]
[b]strFileName = objWS.Name & ".pdf" 'Assigned worsksheet name as filename[/b]
[b]If VBA.Right(strPath, 1) <> Application.PathSeparator Then[/b]
[b]strPath = strPath & Application.PathSeparator[/b]
[b]End If[/b]
[b]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _[/b]
[b]Filename:=strPath & strFileName, _[/b]
[b]Quality:=xlQualityStandard, _[/b]
[b]IncludeDocProperties:=True, _[/b]
[b]IgnorePrintAreas:=False, _[/b]
[b]OpenAfterPublish:=False[/b]
[b]Next objWS[/b]
[b]Worksheets(strCrntWS).Select 'After exporting all the worksheets, it will return to active sheet[/b]
[b]Application.ScreenUpdating = True 'Enabled screen updating[/b]
[b]MsgBox "All sheets have been exported as PDF.", vbInformation + vbOKOnly, "Exported as PDF"[/b]
[b]End Sub



توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

look/images/icons/i1.gif اريد كود لطباعه جميع ملفات البى دى اف مره واحده
  13-03-2024 11:42 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 244
الجنس :
تاريخ الميلاد : 24-9-1981
الدعوات : 1
قوة السمعة : 348
الاعجاب : 5
السلام عليكم ورحمه الله وبركاته
كل عام وانتم جميعا بخير
استاذى الفاضل على
مشكورا بارك الله فيك
كود جميل طبعا
ولكن عزرا 
واضح اننى لم استطيع توصيل المطلوب بشكل جيد
المطلوب
لدى فولد به اكثر من ملف بى دى اف
اريد كود يقوم بطباعه جميع هذه الملفات مره واحده دون الحاجه الى فتح كل ملف على حده ثم طباعته
اتمنى ان اكون استطعت توصيل المعلومه
تقبل تحياتى


تم تحرير المشاركة بواسطة :EM_ACC بتاريخ:13-03-2024 11:43 صباحاً




توقيع :EM_ACC
إبراهيم أبوليله

اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تنسيق الرأس فى الطباعه vba عبدالرحمن صبحى
3 665 hassona229
مشكله الطباعه من SPINNER محمد محمد حمودة
4 1204 YasserKhalil
ماكرو لطباعه الجزء المحدد بالماوس فقط ابو طيبه
1 999 ابو طيبه
العلامة المائيه فى الطباعه عبدالرحمن صبحى
3 1293 YasserKhalil
تعديل علي كود الطباعه كريم نظيم
4 1277 YasserKhalil

الكلمات الدلالية
اريد ، لطباعه ، جميع ، ملفات ، البى ، واحده ،








اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:54 PM.