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

[عبدالله المجرب]

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

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

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

[الجازع]

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

[ياسر الحافظ]

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

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

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

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

ابو الحارث

[أبوعبد الله]

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

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

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

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

أبو عبدالله

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

[يوسف عطا]

الف شكر على الكود الرائع

[أنس دروبي]

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

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

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

والسلام

أخوكم

أنس دروبي

تم تعديل نوفمبر 7, 2011 بواسطه Creation World

[الجازع]

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

[basem said]

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

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

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

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 مثلاً

وشكرا...

تم تعديل نوفمبر 12, 2011 بواسطه jazea

[أبوعبد الله]

الأخ / العزيز jazea

بناءاً على طلبك أرجو الاطلاع على المرفق .

تحياتي

تحويل نطاق الطباعة بالصفحة Sheet 1 إلى ملف PDF.rar

[JΣDDΛΉ BӨY]

والله يسلمو يسلموووو كثير على هيك مجهود جبار

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

تحياتي

[abouelhassan]

اخى استاذ ابو عبد الله الكو يقف ويظهر خطأ

برجاء المساعدة فى حل المشكلة للملف الذى به الثلاث اكود

الاوفيس نسخة2003

احترامى

تم تعديل ديسمبر 1, 2011 بواسطه abouelhssan

[احمد غانم]

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

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

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

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

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

[أبو العاصم]

هل من الممكن تعديل الكود ليقوم

بحفظ نطاق الطباعة

باسم الخلية a1

وفى مجلد محدد بالفولدر

لان الكود بيحفظ فى الدوكيومنتس

وجزيتم خيرا

[احمد غانم]

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

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

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

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

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

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

[basem said]

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

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

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

وشكرا

[علي المصري]

شكرا لك اخي الكريم

[دكتور الحب]

جزاك الله خير ووفق لما يحبه ويرضاه

[أبوحسام 1]

موضوع جدا جميل وتشكر عليه يعطيك العافيه

[وليد زقزوق]

رائع