بسم الله الرحمن الرحيم
الاخوة الاعزاء بارك الله فيكم
كيف يمكنني وضع نموذج في اكسس اختار منه طباعة مستند وورد دون فتحه
ارجو ان تكون الفكرة واضحة
طباعة مستندات وورد من خلال الاكسس
مغلق
تفضل اخي الكريم obaid70
السلام عليكم ورحمة الله وبركاته
هذا الرابط به ما طلبت
http://www.arabteam2000.com/forums/index.php?showtopic=54108
اختكم
زهره
بسم الله الرحمن الرحيم
شكرا جزيلا اخت زهرة وبارك الله فيك
الاخت زهرة
شكراً مرة ثانية ولكن كيف اجعل زر الامر يرسل الملف الى الطابعة مباشرة دون فتحه
بارك الله فيك
تفضل اخي الكريم الحل
الطريقة :
1. قم بإنشاء نموذج فاضي او اذا كان لديك نموذج موجود صلا ضع به زر امر مثل word او اطبع الملف
2. اختر خصائص هذا الزر وضع في حدث عند النقر الكود التالي
Private Sub PrintDoc___Click() Dim WordObj As Object Me![OLEObj].Verb = -1 'Tells Access to open the application Me![OLEObj].Action = 7 'Activates the application Set WordObj = Me![OLEObj].Object.Application WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing End Sub
قم بإستيراد الوحده النمطية من نموذج المثال المرفق او انشئ وحدة نمطية جديده لديك وضع بها الكود التالي
Function PrintDoc()
Dim WordObj As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Documents.Open "C:\DR.doc"
WordObj.PrintOut Background:=False
WordObj.Quit
Set WordObj = Nothing
End Functionلاحظ في هذه الوحدة النمطية مسار الملف انه على
C:\DR.DOC
غيره بما يتناسب مع وجود الملف لديك
المعذرة لم يتم تحميل الملف لا اعلم ما هو السبب
اختكم
زهره
بسم الله الرحمن الرحيم
شكرا اخت زهرة وبارك الله فيك انت حقا استاذة مبدعة .
بسم الله الرحمن الرحيم
الاخت زهرة
بعد التجربة والمحاولة لم اصل الى نتيجة .غيرت مسار الملف ثم غيرت اسم الملف واجريت التجربة فكانت النتيجة دائما هي :
اهلا بك معنا
شرفت المنتدى العربي للبرمجة
اختكم زهره
يوجد سر في الموضوع
الاخ الفاضل عبيد
السلام عليكم ورحمة الله وبركاته
اذهب الى الوحدة النمطية واجعلها في عرض التصميم وغير المسار C:\DR.DR.DOC او C:\DR.DR.RTF الى مسار الملف الخاص بك مثلا
C:\My Documents\MYFILE.DOC
وإن شاء الله سيكون كل شيئ على مايرام اذا لم تنجح معك الطريقه ارجو ابلاغي او وضع ملفك للتعديل عليه
اختكم
زهره
(h)
شيئ جميل أن تطبع جدول من ACCESS الى الوورد
فكرة تحتاج لكثير من التفكير و العمل
مع الشكر طبعا للأخت الفاضلة ( زهؤة ) على شرحها المتميز
أخوكم
WATCHER 2007
نفس النتيجة يا اخت زهرة
انا قلتلك الموضوع فيه سر !!!!!
اخي عبيد
المسأله ليست بها اي نوع من الاسرار
امل منك توضيح ما قمت بعمله بالتفصيل الممل من اول خطوه الى اخر خطوه انا معاك الان اشرح مثل ما تبغى عشان اعرف وين الخطأ واقوم بالتصحيح لك
اختكم
زهره
السلام عليكم
اختنا العزيز زهرة اشكر لك جهودك وتواصلك معي
الحقيقة ما قصرتي ابدا والمسألة حلت على اي حال والفضل للاستاذ خضر الرجبي
الف شكر لك وله على هذا الاهتمام الرائع منكما وهذا الاهتمام والتواصل لوحده كافي لاكون عاجزا عن الشكر
جزاكم الله الف خير وبارك فيكم
هذا الموضوع مغلق.