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

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


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

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

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

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

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

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

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم

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

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

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

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

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

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

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

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

السلام عليكم

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

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

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

DR.rar

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

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

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

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

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

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

السلام عليكم

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

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

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

DR_fix1.rar

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

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

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

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

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

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

السلام عليكم

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

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

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

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

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

السلام عليكم

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

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

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

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

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

krjabioi3.JPG

وبعدها تختار لسان التبويب حدث 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

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

السلام عليكم

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

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

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

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

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

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

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