اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

اخى الفاضل

 

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

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

تحياتي :fff: 

PDF.rar

قام بنشر

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

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

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

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

ترى ما السبب؟

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

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

قام بنشر

 

ترى ما السبب؟

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

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

 

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

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

تحياتي :fff: 

قام بنشر

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

نفس الخطأ ..

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

قام بنشر

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

نفس الخطأ ..

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

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

 

تحياتى :fff: 

PDF.rar

قام بنشر

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

فقط ينشئ مجلد جديد على الـ 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

تحياتي :fff: 

قام بنشر

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

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

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

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

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

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

  • Like 1
قام بنشر

 

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

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

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

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

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

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

 

 

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

 

تحياتى :fff: 

  • Like 1
قام بنشر

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

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

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

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

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

قام بنشر

 

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

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

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

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

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

 

 

حاضر استاذي

 

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

 

تحياتي :fff: 

قام بنشر

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

  • تمت الإجابة
قام بنشر

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

اخى الفاضل

 

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

 

تحياتي :fff: 

PDF.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information