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

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

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

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

Sub PrintToPDF(arr As Variant, fileName As String, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Optional vQuality = xlQualityStandard, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Optional vIncDocProperties = True, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Optional vIgnorePrintAreas = False, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Optional vOpenAferPublish = False)<br />
<br />
&nbsp; &nbsp; ThisWorkbook.Sheets(arr).Select<br />
&nbsp; &nbsp; ActiveSheet.ExportAsFixedFormat _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Type:=xlTypePDF, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; fileName:=fileName, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Quality:=vQuality, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; IncludeDocProperties:=vIncDocProperties, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; IgnorePrintAreas:=vIgnorePrintAreas, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; OpenAfterPublish:=vOpenAferPublish<br />
&nbsp; &nbsp; ActiveSheet.Select<br />
End Sub<br />
<br />

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

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

Array("Sheet1", "Sheet2")

والبارامتر الثاني سيكون عبارة عن المسار الذي سيحفظ فيه ملف الـ PDF

ThisWorkbook.Path & "Output.pdf"

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

ويمكن استخدام الإجراء العام بهذا الشكل في النهاية

Sub Test_PrintToPDF()
    PrintToPDF Array("Sheet1", "Sheet2"), ThisWorkbook.Path & "Output.pdf"
End Sub

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

Array("Sheet1")

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

تحميل الملف المرفق من هنا

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