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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil combobox برجاء المساعدة فى اظهار القائمة بشرط معين اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





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

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



23-07-2018 08:56 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8437
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 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]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1736
الجنس : ذكر
الدعوات : 19
يتابعهم : 0
يتابعونه : 622
قوة السمعة : 18246
الاعجاب : 461
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام

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





توقيع :الصقر

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


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




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




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



توقيع :Yasser Elaraby
663013020


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




23-07-2018 05:00 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8437
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 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]
بليغ البتول
menu_open
عضو مشارك
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
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8437
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 441
قوة السمعة : 24618
الاعجاب : 2777
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
وجزيت خيراً أخي العزيز بليغ بمثل ما دعوت لي وزيادة
تقبل تحياتي




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




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




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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets YasserKhalil
5 245 YasserKhalil
فصل أوراق مصنف وحفضها بمصنف منفرد يحمل إسم الورقة ذاتها hadjadj youcef
7 191 YasserKhalil
تعبئة الكومبوبوكس بأسماء أوراق العمل Fill ComboBox With Sheets Names Activate Sheet Selected YasserKhalil
20 491 YasserKhalil
حماية المعادلات في كل أوراق العمل Protect Formulas In All Sheets YasserKhalil
12 756 YasserKhalil
البحث في أوراق عمل متعددة باستخدام دالة معرفة VLOOKUP Multiple Ranges Using UDF YasserKhalil
18 1189 YasserKhalil

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


 







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

الساعة الآن 04:30 صباحا

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