كيف اطبع ملف وورد بوساطة زر امر في نموذج اكسس

[عبيد شهاب]

بسم الله الرحمن الرحيم

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

الاخوة الافاضل كيف يمكنني انشاء نموذج اكسس اطلب منه طباعة ملف وورد من خلال زر امر او ارتباط تشعبي واوكد " طباعة " وليس معاينة اي بمجرد الضغط على زر الامر يتم ارسال ملف الوورد الى الطابعة .

بارك الله فيكم

وارجو الرد السريع للحاجة .

تم تعديل يوليو 10, 2005 بواسطه obaid70

[الدكتور خضر الرجبي]

السلام عليكم

أخي obaid70 ، بارك الله فيك

كنت قد أرفقت مثالا عن فتح ملف وورد من أكسيس وسالني أحدهم عن كيفية طباعة الملف تلقائيا ، هنا الموضوع الذي ستجد فيه التفاصيل .

أملا أن يحقق مطلبك ومتمنيا لك يوما سعيداً.

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

[عبيد شهاب]

بسم الله الرحمن الرحيم

بارك الله فيك اخي خضر وجزاك الف خير وزادك علماً ونورا

ولكن ارجو ان تكمل معروفك وتضيف زر الطباعة الى المثال المرفق .

وبالنسبة لمثال الاخت المبدعة زهرة هو ما اريده بالضبط ولكني لم اعرف كيف استفيد منه

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

الملف الذي احتاجه بضغط الزر الخاص به اريد ان يتم تعديل المثال وفق هذا الشئ .

وجزاكم الله خيرا .

تم تعديل يوليو 11, 2005 بواسطه obaid70

[الدكتور خضر الرجبي]

السلام عليكم

حياك الله أخي obaid ، ولكني ارجو منك فضلاً زيارة الموضوع مرة أخرى حيث تم الاضافة عليه مؤخراً بفكرة رائعة من اختنا الخبيرة زهرة.

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

[عبيد شهاب]

وعليكم السلام اخي خضر

يبدو انني قمت بتعديل الرد قبل ان اتلقى ردك الاخير

بصراحة فوجئت بهذا الرد السريع منك بارك الله فيك

ارجو العودة الى قراءة الرد السابق بعد تعديله ومشكور مرة ثانية على هذه الاستجابة الرائعة .

[الدكتور خضر الرجبي]

السلام عليكم

أخي obaid70 ، بارك الله فيك

هذا هو الملف المرفق في المشاركة وفيه المثال الذي يقوم بالطباعة مباشرة لملفات الوورد.

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

DR.rar

[عبيد شهاب]

اخي الكريم الملف هذا عندي منذ وصول المشاركة 2

لكن المشكلة ان هذا النموذج لا يطبع إلا العبارة التي وضعتها الاخت زهرة وهي عبارة الترحيب رغم انني قمت بتغيير المسار وكذلك غيرت اسم الملف والنتيجة هي دائما عبارة الترحيب

واريد ان اسأل هل حاولت اجراء تجربة على ملف خاص بك ؟

اذا لم تجرب فحاول واخبرني بالنتيجة وفقك الله .

[الدكتور خضر الرجبي]

السلام عليكم

حياك الله أخي obaid70 ،

قمت بتعديل الملف ليعمل بسهولة كما تريد فقط في حدث النقر لزر الأمر غير اسم ودليل الملف ، وإن شاء الله سيعمل كما تريد

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

DR_fix1.rar

[عبيد شهاب]

بسم الله الرحمن الرحيم

الشكر كل الشكر لك اخي خضر وبارك الله فيك على هذا الاهتمام والتواصل

واسمح لي ان اطمع بكرمك وان اطلب منك هذا الطلب الاخير بالنسبة لهذا الموضوع ان شاء الله تعالى :

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

تم تعديل يوليو 12, 2005 بواسطه obaid70

[الدكتور خضر الرجبي]

السلام عليكم

أخي obaid70 ، بارك الله فيك

1. اعمل زر جديد .

2. في حدث عند النقر للزر الجديد ، أطلب الإقتران نفسه مع تغيير اسمه فقط ودليل الملف الجديد وهكذا لكل الأزرار.

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

[عبيد شهاب]

السلام عليكم

لم تنجح معي التجربة ياريت ترسلي المثال بعد تعديله .

يعني انت اعمل زر جديد وطبّق عليه الاقتران الله يبارك فيك .

[الدكتور خضر الرجبي]

السلام عليكم

أخي obaid70 ، حياك الله

في المرفق ستجد أنني قمت بتصميم 10 أزرار لطباعة الملفات العشرة التي تريدها

الطريقة التي تضع بها اسم الملف المطلوب هي كما يلي ، لنقل أنك تريد عند الضغط على زر طباعة الملف الثاني أن تطبع الملف الذي اسمه obaid.doc ملف وورد والموجود في الدليل الرئيس لجهاز التخزين :C ، فتقوم بما يلي :

1. تدخل لوضع التصميم للنموذج

2. تضغط على زر الماوس اليمين فوق زر الأمر الملف الثاني وتختار الخصائص properties من الصندوق الذي سيظهر وثم ستظهر لك الصوورة التالية :

وبعدها تختار لسان التبويب حدث event وتدخل إلى إجراء حدث عند النقر وحينها سيظهر لك الكود التالي :

Private Sub doc2_Click()
Dim WordObj As Object
   Set WordObj = CreateObject("Word.Application")
   WordObj.Documents.Open "C:\file1.doc"
   WordObj.PrintOut Background:=False
   WordObj.Quit
   Set WordObj = Nothing

End Sub

تغير اسم الملف فقط من file1.doc إلى obaid.doc وسيعمل معك البرنامج بإذن الله كما تود.

تعمل نفس الشيء مع باقي الأزرار لتحدد أسماء الملفات التي تود طباعتها.

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

DR_fix2.rar

[عبيد شهاب]

السلام عليكم

الاستاذ خضر المحترم

بارك الله فيك على هذا المجهود

اتعبتك معاي لكن في النهاية هذا هو المطلوب جزاك الله الف خير وجعله في ميزان اعمالك

وارجو ان لا ازعجك ان احتجتك في مسائل اخرى

شكرا استاذي خضر