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



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





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

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



23-07-2018 08:56 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4000
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 296
قوة السمعة : 11346
الاعجاب : 4034
 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
المشاركات : 1329
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 330
قوة السمعة : 9824
الاعجاب : 2444
 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
المشاركات : 923
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 48
قوة السمعة : 5336
الاعجاب : 1517
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
جزاك الله خيرا أستاذى الحبيب
دائما مبدع بأفكارك ومواضيعك
كود رائع ومفيد جدا 81

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




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

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




23-07-2018 12:50 مساء
مشاهدة مشاركة منفردة [4]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 801
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 441
قوة السمعة : 5482
الاعجاب : 1443
موقعي : زيارة موقعي
 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
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 01-05-2018
رقم العضوية : 5917
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 27-3-1976
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 20
الاعجاب : 5
 offline 
look/images/icons/i1.gif تصدير أوراق عمل محددة إلى PDF باستخدام إجراء عام
بارك الله فيك استاذ خليل ورفع درجتك 

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




23-07-2018 05:00 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4000
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 296
قوة السمعة : 11346
الاعجاب : 4034
 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،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة YasserKhalil
11 143 YasserKhalil
استدعاء أسماء أوراق العمل من الكمبوبوكس محمد الدسوقى
13 353 mahmoud ayad
تعديل واصلاح كود الترحيل الى عدة أوراق عمل أحمد يوسف
3 146 YasserKhalil
الخروج بدون حفظ مع اخفاء أوراق عمل الملف أباالحسن
8 308 ostazmas
الحلقات التكرارية Loops مع شرح كيفية إعداد قائمة بأسماء أوراق العمل Worksheets عبدالجيد
1 190 عبدالجيد

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


 







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



الساعة الآن 11:34 مساء

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