طباعة مستند وورد

[ابوخليل]

Dim WordObj As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Documents.Open (CurrentProject.Path & "\WrdfilName.doc")
WordObj.PrintOut Background:=False
WordObj.Quit
Set WordObj = Nothing

 

طباعة ملف ورد.rar

[ابو عبدلله]

بسم الله

كم أنت ررررائع أخي و استاذنا أبو خليل

مبدع

فلقد بحثت عن هذا الكود طويلاً ولم اجده

والآن وجدتُ الكود والأروع وجدت من ساعدني "أبو خليل "

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

رضا الله

 

 

26 دقائق مضت, ابوخليل said:

Dim WordObj As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Documents.Open (CurrentProject.Path & "\WrdfilName.doc")
WordObj.PrintOut Background:=False
WordObj.Quit
Set WordObj = Nothing

 

طباعة ملف ورد.rar

بسم الله

أخي الكريم أبو خليل

استفسار صغير عن طريقتي

لدي أكثر من زر أمر بنفس الفورم و كل زر يطبع ملف

هل اضع لكل ملف الـ Function اللذي استخدمته مع تعديل اسم و مسار الملف ؟؟؟؟

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

رضا الله

[عبدالرحمن هاشم]

سلمت يمينك أستاذنا الكريم أبو خليل وكل أساتذتنا الكرام

جزاكم الله عنا كل خير

 

[ابوخليل]

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

    فهذا واحد من الروابط التي كنت ابحث فيها  www.access-programmers.co

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

      وهو للاستاذ خضر الرجبي والاستاذة زهرة  ، فلهما السبق والفضل

  ولو وفقت بالعثور عليه لاكتفيت بالاشارة اليه ، ووفرت على نفسي بعض الوقت

اقتباس

لدي أكثر من زر أمر بنفس الفورم و كل زر يطبع ملف

هل اضع لكل ملف الـ Function اللذي استخدمته مع تعديل اسم و مسار الملف ؟؟؟؟

لا  لايلزم  بل يكفي وحدة نمطية واحدة وزر واحد

لان اسم الملف ومساره يجب ان يكون مرنا  بحيث يمكن تغييره او استبداله

       وهذا يعني انه يلزمك ان توجد طريقة تغيير متاحة للمستخدم 

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