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



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





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

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



23-07-2018 08:56 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13375
الاعجاب : 4949
 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")


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

لرؤية الروابط والمرفقات عليك الرد على الموضوع

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

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah، محمود الشريف، Yasser Elaraby، السعيد الجزائري، anassar، بليغ البتول،





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

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



أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




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

أثارت هذه المشاركة إعجاب: الصقر، YasserKhalil،




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

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah،




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

أثارت هذه المشاركة إعجاب: Eslam Abdullah، YasserKhalil،


توقيع :Yasser Elaraby
663013020



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

أثارت هذه المشاركة إعجاب: YasserKhalil،




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

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

أثارت هذه المشاركة إعجاب: Eslam Abdullah، Yasser Elaraby،




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





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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة YasserKhalil
15 321 مالك ماريه
كيف تدفع او تقبض مبلغ من المال بأقل عدد من الأوراق المالية salim
8 156 mosadshehata
استدعاء أسماء أوراق العمل من الكمبوبوكس محمد الدسوقى
13 480 mahmoud ayad
تعديل واصلاح كود الترحيل الى عدة أوراق عمل أحمد يوسف
3 205 YasserKhalil
الخروج بدون حفظ مع اخفاء أوراق عمل الملف أباالحسن
8 408 ostazmas

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


 







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



الساعة الآن 10:32 صباحا

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