أكاديمية الصقر للتدريب

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


اعلان هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم كود في منتهى الأهمية لمن يقومون بتصدير أوراق الع ..



23-07-2018 08:56 صباحا
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6329
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17426
الاعجاب : 315
 offline 

السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله

أقدم لكم اليوم كود في منتهى الأهمية لمن يقومون بتصدير أوراق العمل إلى PDF ، حيث أن الكود سيكون عبارة عن إجراء عام من خلاله يمكن تحديد أوراق العمل المطلوب تصديرها أياً كان عددها ، ويمكنك تحديد المسار للملف الذي سيتم تصديره

الإجراء العام سيكون بهذا الشكل

Sub PrintToPDF(arr As Variant, fileName As String, _
               Optional vQuality = xlQualityStandard, _
               Optional vIncDocProperties = True, _
               Optional vIgnorePrintAreas = False, _
               Optional vOpenAferPublish = False)

    ThisWorkbook.Sheets(arr).Select
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            fileName:=fileName, _
            Quality:=vQuality, _
            IncludeDocProperties:=vIncDocProperties, _
            IgnorePrintAreas:=vIgnorePrintAreas, _
            OpenAfterPublish:=vOpenAferPublish
    ActiveSheet.Select
End Sub


والميزة الهامة في الإجراءات العامة أنه يمكن استخدامها بمرونة ويمكنها استخدامها أكثر من مرة ، حيث أنها تسهل عملية التنفيذ ..
الإجراء العامة يشبه الدوال المعرفة حيث أنه توجد بارامترات خاصة بالإجراء الفرعي ، وأهم هذه البارامترات هو الأول والثاني

البارامتر الأول سيكون عبارة عن مصفوفة بأسماء أوراق العمل المطلوب تصديرها 
Array("Sheet1", "Sheet2")


والبارامتر الثاني سيكون عبارة عن المسار الذي سيحفظ فيه ملف الـ PDF
ThisWorkbook.Path & "Output.pdf"

وهذا السطر يعني أن المسار هو مسار المصنف الحالي (نفس مسار الملف) ، علاوة على الاسم الذي ترغبه في ملف الـ PDF الذي سيتم تصديره

ويمكن استخدام الإجراء العام بهذا الشكل في النهاية 
Sub Test_PrintToPDF()
    PrintToPDF Array("Sheet1", "Sheet2"), ThisWorkbook.Path & "Output.pdf"
End Sub


* يمكن تصدير ورقة عمل واحدة (لا مشكلة على الإطلاق) حيث سيكتب البارامتر الخاص بأوراق العمل بهذا الشكل
Array("Sheet1")


وأخيراً إليكم ملف التطبيق (تحميل الملف من الموقع يدعم صاحب الموضوع ، فلا تبخل علينا كما أننا لا نبخل عليك)

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

كان معكم أخوكم في الله / ياسر خليل أبو البراء






23-07-2018 09:55 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1630
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 537
قوة السمعة : 16827
الاعجاب : 112
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام

جزاكم الله خيرا يا غالى تم التحميل كود رائع 123





توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



23-07-2018 10:11 صباحا
مشاهدة مشاركة منفردة [2]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1376
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 72
قوة السمعة : 8483
الاعجاب : 35
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
جزاك الله خيرا أستاذى الحبيب
دائما مبدع بأفكارك ومواضيعك
كود رائع ومفيد جدا 81





23-07-2018 11:03 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6329
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17426
الاعجاب : 315
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
أخي الحبيب حسام خطاب
أخي الحبيب إسلام
جزاكم الله خيراً على تشجيعكم الدائم ومشكور على مروركما العطر





23-07-2018 12:50 مساء
مشاهدة مشاركة منفردة [4]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1043
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 570
قوة السمعة : 7363
الاعجاب : 90
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
ياكيكي عليك يابني wink_3
كود رائع نتمنى لك المزيد من التقدم 28
 123



توقيع :Yasser Elaraby
663013020



23-07-2018 04:33 مساء
مشاهدة مشاركة منفردة [5]
السعيد الجزائري
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-05-2018
رقم العضوية : 5917
المشاركات : 52
الجنس : ذكر
تاريخ الميلاد : 27-3-1976
يتابعهم : 11
يتابعونه : 0
قوة السمعة : 74
الاعجاب : 1
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
بارك الله فيك استاذ خليل ورفع درجتك 





23-07-2018 05:00 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6329
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17426
الاعجاب : 315
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
بارك الله فيك أخي الكريم السعيد ومشكور على مرورك العطر

منور يا عربي ومشكور على مرورك العطر
Araby! Do you love me!? Just Tell me and I will kill you
Regards





02-10-2018 11:35 مساء
مشاهدة مشاركة منفردة [7]
بليغ البتول
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-02-2018
رقم العضوية : 4439
المشاركات : 35
الجنس : ذكر
تاريخ الميلاد : 20-2-1982
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 42
الاعجاب : 1
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
جزاك الله خيرا أستاذى القدير 
ومزيدا من الابداع والتمييز





03-10-2018 06:19 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6329
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17426
الاعجاب : 315
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
وجزيت خيراً أخي العزيز بليغ بمثل ما دعوت لي وزيادة
تقبل تحياتي





25-10-2018 11:31 مساء
مشاهدة مشاركة منفردة [9]
Shoruk
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-03-2018
رقم العضوية : 4932
المشاركات : 15
الجنس : أنثى
تاريخ الميلاد : 18-2-1977
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 48
الاعجاب : 0
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
بارك الله فيكم علي المجهود الكبير.





26-10-2018 07:05 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6329
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17426
الاعجاب : 315
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
مشكور أختي الفاضلة على المرور العطر بالموضوع





26-10-2018 10:33 صباحا
مشاهدة مشاركة منفردة [11]
محمد النيل
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 220
الاعجاب : 1
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
جزاك الله خيرا





26-10-2018 02:12 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6329
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17426
الاعجاب : 315
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
وجزيت خيراً أخي الكريم محمد
مشكور على مرورك العطر






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيف تدفع او تقبض مبلغ من المال بأقل عدد من الأوراق المالية salim
9 563 محمود ابراهيم العبادى
انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة YasserKhalil
17 991 YasserKhalil
البحث في أوراق عمل متعددة باستخدام دالة معرفة YasserKhalil
1 208 YasserKhalil
استدعاء أسماء أوراق العمل من الكمبوبوكس محمد الدسوقى
13 998 mahmoud ayad
تعديل واصلاح كود الترحيل الى عدة أوراق عمل أحمد يوسف
3 429 YasserKhalil

الكلمات الدلالية
تصدير ، أوراق ، محددة ، باستخدام ، إجراء ،


 







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



الساعة الآن 01:10 مساء

أعلن هنا
أعلن هنا
أعلن هنا