كود طباعة شيتات معينة بصيغة PDF

[مهند الزيدي]

السلام عليكم ... كيفية عمل كود طباعة شيتات معينة بصيغة PDF كما في الملف المرفق

PDF.zip

[ibn_egypt]

اخى الفاضل

 

تفضل الملف المرفق .. كود طباعة الشيتات المحددة كملف PDF .. في نفس مسار الملف الاصلي ... يمكنك تغيير الشيتات من هذا السطر من الكود

ThisWorkbook.Sheets(Array("1", "2")).Select

تحياتي  

PDF.rar

[ياسر خليل أبو البراء]

أخي الحبيب ابن مصر

أنا لم أجرب هذه الأكواد من قبل

جربت المرفق وأعطاني خطأ في هذا السطر

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFileName, _
IgnorePrintAreas:=False

ترى ما السبب؟

هل نسخة الأوفيس لها علاقة ؟؟أنا أعمل على أوفيس 2007 ؟

أم أن هناك مكتبة يجب تفعيلها؟

[ibn_egypt]

 

ترى ما السبب؟

هل نسخة الأوفيس لها علاقة ؟؟أنا أعمل على أوفيس 2007 ؟

أم أن هناك مكتبة يجب تفعيلها؟

 

أستاذي الفاضل أ.ياسر، لا أعلم حقيقة سبب الخطأ .. فعندي اصدار 2010 والكود يعمل بشكل جيد جدا .. جرب ان تضع الأسطر السابقة على سطر واحد لربما تحل المشكلة

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, IgnorePrintAreas:=False

تحياتي  

[ياسر خليل أبو البراء]

السطر لا يغير في شيء إذا كان في عدة أسطر أو سطر واحد

نفس الخطأ ..

هل من الأعضاء من قابلته نفس مشكلتي؟ .. أعتقد إن المشكلة في الأوفيس ..قد لا يكون فيه هذه الميزة أو أن هناك برنامج يتم تنصيبه لدمج هذه الميزة في البرنامج ؟!!

[ibn_egypt]

السطر لا يغير في شيء إذا كان في عدة أسطر أو سطر واحد

نفس الخطأ ..

هل من الأعضاء من قابلته نفس مشكلتي؟ .. أعتقد إن المشكلة في الأوفيس ..قد لا يكون فيه هذه الميزة أو أن هناك برنامج يتم تنصيبه لدمج هذه الميزة في البرنامج ؟!!

طب جرب الكود ده .. كنت عملته لأحد الأعضاء لطباعة الفورم ك PDF وعدلته قليلا .. وهو يعمل لدى العضو على اصدار 2007 بشكل جيد

 

تحياتى  

PDF.rar

[ياسر خليل أبو البراء]

الكود لا يعطي خطأ ولا يعطي ملفات

فقط ينشئ مجلد جديد على الـ D باسم PDF ..جربته أكثر من مرة ولم ينتج عنه شيء..

يا ترى ايه المشكلة؟

[ibn_egypt]

الكود لا يعطي خطأ ولا يعطي ملفات

فقط ينشئ مجلد جديد على الـ D باسم PDF ..جربته أكثر من مرة ولم ينتج عنه شيء..

يا ترى ايه المشكلة؟

طب محاولة اخيرة .. انسخ الكود ده والصقه في ملف جديد وشوف هل سيظهر نفس الخطأ ام لا .. انا هنا ثبت اسم الملف والمسار 

 

جرب كده

Sub PRINTPDF()
ThisWorkbook.Sheets(Array("Sheet2", "Sheet3")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\tempo.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

تحياتي  

[ibn_egypt]

اخى الحبيب ياسر

 

بعد البحث اتضح لى انه من الممكن ان تكون ال PDF addin غير مثبته لديك .. جرب تثبتها من الملف المرفق وشغل الكود مرة أخرى

 

تحياتي  

SaveAsPDFandXPS.rar

[ياسر خليل أبو البراء]

للأسف لم تفلح المحاولة أيضاً يا ابن مصر

[ياسر خليل أبو البراء]

تمت العملية بنجاح بعد تنصيب الأداة

جزاكم الله خيراً أخي الحبيب ابن مصر

وتمت الإضافة للمكتبة وهذا ما أخرني في الرد ..

عملت كل الأكواد بنجاح بعد تنصيب الأداة

مشكور على تعبك معايا

تقبل تحياتي القلبية :fff:

[ibn_egypt]

 

تمت العملية بنجاح بعد تنصيب الأداة

جزاكم الله خيراً أخي الحبيب ابن مصر

وتمت الإضافة للمكتبة وهذا ما أخرني في الرد ..

عملت كل الأكواد بنجاح بعد تنصيب الأداة

مشكور على تعبك معايا

تقبل تحياتي القلبية :fff:

 

 

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

 

تحياتى  

[ياسر خليل أبو البراء]

أخي ابن مصر ..بطلب منك كل يوم كود واحد بس يكون مشروح طبعاً مش هتقل عليك

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

خليك معين لي بعد الله عزوجل في إتمام المشروع

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

يعني ممكن نقول خلصنا البنية التحتية ، فخليك معايا ربنا يبارك فيك

[ibn_egypt]

 

أخي ابن مصر ..بطلب منك كل يوم كود واحد بس يكون مشروح طبعاً مش هتقل عليك

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

خليك معين لي بعد الله عزوجل في إتمام المشروع

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

يعني ممكن نقول خلصنا البنية التحتية ، فخليك معايا ربنا يبارك فيك

 

 

حاضر استاذي

 

طب الملف المرفق الأخير تمت اضافة اكواده الى المكتبة ام ابدأ من يوم بعد غد ان شاء الله شرحه واحدا واحدا لتتم اضافته

 

تحياتي  

[مهند الزيدي]

شكرا خي العزيز أبن مصر .. شكرا أخي ياسر ..ولو أثقل عليك أخي أبن مصر .. ممكن ظهور نتائج الطباعة كل شيت على حدة مثلا شيت 1 مفصول عن شيت 2 في ملف ال PDF ..... وفقكم الله لكل خير

[ibn_egypt]

شكرا خي العزيز أبن مصر .. شكرا أخي ياسر ..ولو أثقل عليك أخي أبن مصر .. ممكن ظهور نتائج الطباعة كل شيت على حدة مثلا شيت 1 مفصول عن شيت 2 في ملف ال PDF ..... وفقكم الله لكل خير

اخى الفاضل

 

تفضل الملف المرفق لربما به طلبك

 

تحياتي  

PDF.rar