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

(تمت الإجابة) كود لحفظ الملف بصيغة PDF - أوفيس 2007


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

تفضل المرفق بعد التعديل البسيط

قمت بوضع هذه العلامة امام سطر الرسالة لايقاف عملها (')

نطاق الطباعة.rar

رابط هذا التعليق
شارك

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

حكما ياخي الجميع يستفيد وحتى لو يكن هو ما يطلبه السائل بدقة

ولكن جميعنا نستفيد من الردود

تشكر وجزاك الله كل الخير

ابو الحارث

رابط هذا التعليق
شارك

إخواني الأعزاء

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

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

مع حبي وتقديري

أبو عبدالله

تحويل نطاق الطباعة بالصفحة النشطة إلى ملف PDF وحفظ الملف بالإسم الموجود بالخلية A1.rar

رابط هذا التعليق
شارك

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

أخي أبو عبد الله لو تكرمت علي أن تقرأ المشاركة رقم (21) وهي فكرة تحويل النطاق الى صورة وليس ملف pdf

فهل تصح هذه الطريقة على الكود

والسلام

أخوكم

أنس دروبي

تم تعديل بواسطه Creation World
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

سعدنا بعودتك أخي الحبيب / أبو عبد الله

وأعتبرها عيد بالنسبة لي

تظهر هذه الرسالة عند الظغط على الماكرو


MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _

				   "Microsoft Add-in is not installed" & vbNewLine & _

				   "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _

				   "The path to Save the file in arg 2 is not correct" & vbNewLine & _

				   "You didn't want to overwrite the existing PDF if it exist"

ماهو الحل برأيك :)

الموضوع مميز

بس للاسف الكود لم يعمل عندى ويعطنى نفس الرسالة

رابط هذا التعليق
شارك

أخي العزيز / يوسف عطا

أشكرك على مرورك الكريم

أخي العزيز / Creation World

بالنسبة لطلبك تحويل الشيت لملف صورة ، فيمكنك استخدام مفتاح PrintScreen ، ثم فتح أي برنامج تحرير صور مثل برنامج Paint Prush ثم لصق الصورة به وحفظ الملف بصيغة jpg مثلا ، وإذا لم يناسبك هذا الحل فمرفق ملف به فكرة أخرى يتم فيها تحديد نطاق بالورقة يتم تحويله لصورة ولصقه كصورة نشطة بنفس الورقة وتستطيع بعد ذلك نسخ نفس الصورة ولصقها بملف صورة من خلال أي برنامج من برامج تحرير الصور مثل ال Paint Prush أو Photo Editor .

أخي العزيز / jazea

بخصوص طلبك تحديد ورقة معينة وثابتة يتم تنفيذ التحويل لملف Pdf عليها فيمكنك ذلك بتغيير جملة Activesheet في هذا الجزء من الكود الخاص بتحويل ورقة لملف Pdf لإسم الورقة المطلوب تثبيتها بالكود FileName = RDB_Create_PDF(ActiveSheet, "", True, True)

أرجو أن يكون الحل واضحا .

أخي العزيز / باسم سعيد

لا أعلم سبب واضح أو مؤكد لظهور هذه الرسالة إلا أن يكون حصل خطأ معين منك في التعامل مع الكود مثل عدم اختيار نطاق معين بكود تحويل نطاق معين مثلا أو ربما اختلاف نسخة الأوفيس عندك علماً بأن الأكواد تعمل عندي بدون أي مشاكل ، ولم يشكو منها أحد ، لذا أرجو مراجعة سبب المشكلة وإخباري لعلي استطيع المعالجة .

تحياتي

أبو عبدالله

تحويل نطاق تختاره بالورقة لصورة ولصقه بنفس الورقة.rar

رابط هذا التعليق
شارك

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

أخي أبو عبد الله

الله يجزيك الخير على الملف

لكن القصد كان هو نفس ملف نطاق الطباعة السابق يعطيني رسالة حفظ اسم الملف

ومن ثم حفظ ملف pdf في المستندات

ليس كما في الملف أن تكون الصورة في الورقة النشطة

يعني أخي ان يقوم الكود بأخذ صورة من النطاق المختار وحفظها خارج الملف مثل ملف pdf

الذي أريده هو فقط تغيير اللاحقة من pdfالى لاحقة صورة

أرجو أن لا يكون الحل صعباً

والسلام عليكم

أخوكم أنس دروبي

رابط هذا التعليق
شارك

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

والله إن المرء ليعجز عن شكرك

بالنسبة لطلب أخينا

فأعتقد أن الفكرة قد قام بها الأخ الطيب طارق جزاه الله خيرا

الملف المرفق عبارة عن شارت يحول نطاق الطباعة إلى صورة ويقوم بحفظها فى المجلد الذى يحوى ملف الاكسيل

المشكلة تكمن فى عمل الشارت وتطبيقة على نطاق جديد

لكن بعد الكود الطيب الذى رفعة الأخ الطيب يمكن تعديل الأمر

الرجاء تنفيذ الكود على نطاق الطباعة وإزالة رسالة تاكيد اختيار النطاق وتسمية الملف بخلية معينة كالملف السابق

نموذج فاتورة ونسخ صورة.rar

رابط هذا التعليق
شارك

اخي العزيز اسعد الله صباحك لقد تم التعديل على الكود ولاكن لا يعمل

اود توضيح الطلب مره اخرى في حالة نقل الامر الى صفحه اخرى لا يمكن استخدامه المطلوب هو تعديل الكود لامكانية استخدامه في اي صفحه مع وجود امكانية التحويل لنفس النطاق المثبت لصفحه اسم Sheet1 مثلاً

وشكرا...

تم تعديل بواسطه jazea
رابط هذا التعليق
شارك

  • 3 weeks later...

اخ abouelhssan السلام عليكم

هل يمكنك اذا سمحت تطبيق هذا الكود على الملف في المشاركه

(موضوع معلق) فورم إدخال بيانات لإفادة مدرسية وحفظ نسخة PDF للشهادة الملف في المشاركة رقم # 25

الكود كان يعمل بشكل طبيعي بعد ذللك ..... علماً اني استخدم اوفس 2007

http://www.officena.net/ib/index.php?showtopic=39229

رابط هذا التعليق
شارك

اخ abouelhssan السلام عليكم

هل يمكنك اذا سمحت تطبيق هذا الكود على الملف في المشاركه

(موضوع معلق) فورم إدخال بيانات لإفادة مدرسية وحفظ نسخة PDF للشهادة الملف في المشاركة رقم # 25

الكود كان يعمل بشكل طبيعي بعد ذللك ..... علماً اني استخدم اوفس 2007

http://www.officena....showtopic=39229

للــــــــــــــــرفع

رابط هذا التعليق
شارك

  • 2 months later...

الاساتذة الافاضل

ممكن عمل معاينة للورقة النشطة pdf دون الحفظ وبدون اظهار اى رسائل او صناديق حوار

بمعن اوضح اظهار التقرير على شكل pdf

وشكرا

رابط هذا التعليق
شارك

  • 1 month later...
  • 3 weeks later...
  • 11 months later...
  • 1 year later...

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