كيفية طباعة صورة موجوده بداخل مجلد مجلد الصور

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

مادام أنك أخي ستستخدم إمكانيات نظام التشغيل فلماذا لا تجرب فتح Microsoft Picture Manager ومن هناك يمكن للمستخدم التعامل مع هذا البرنامج مباشرة لفتح وطباعة الصور... يمكنك فتح البرنامج من الأكسس على أي مجلد (يحوي الصوربالطبع) باستخدام الكود التالي:

	Dim dblDummy As Double
	dblDummy = Shell("ois.exe c:\pic")

حيث c:\pic هو مجلد محدد...

والله أعلم

شكراً أخى على سرعة الرد

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

والأهم من ذلك عدم الثقل على المستخدم بالتعامل مع غير برنامج الاكسس .

يرجى المتابعة والرد

الى الأخ / أحمد مبارك .

طب إذا حاولنا أستخدام طريقتك السابقة هل يمكننا من تحديد صور معينة أو لصورة محددة من خلال الاكسس مباشرتاً لأنه مع كثرة عدد الصور المأخوذة سيواجه المستخدم صعوبة الوصول للصورة التى تمت أخذها بالاسكنر ووضعت رابط لها في الاكسس .

أخواني الكرام يرجى الرد

بالتأكيد إن شاء الله يمكن تحديد صورة محددة أو كامل الصور في مجلد بكل مرونة، فقط حدد المسار إلى المجلد فقط أو إلى صورة محددة...

	Dim dblDummy As Double
	dblDummy = Shell("ois.exe c:\pic\chip.jpg")

هذا الكود يفتح الصورة chip.jpg داخل المجلد pic، حيث يمكن للمستخدم معاينة الصورة أو طباعتها.

والله أعلم

أخى الكريم أحمد مبارك

أولاً شكراً على سرعة أستجابتك بارك الله فيك

لما طبقت ما قلت وجدت التالى :

ظهر رسالة خطأ رقم 91

مرفق ملف بالرسالة وبالكود المكتوب

رجاً التعديل عليه والرد باسرع وقت لأنى محتاجه ضرورى الله يكرمك

rsala.rar

وفيك بارك الله أخي... فقط استخدم التعديل التالي وأخبرني بالنتيجة تفضلاً لأنني لا أستطيع اختبار النتيجة بنفسي:

	Dim dblDummy As Double
	ty = [Forms]![frmEMP]![th]
	dblDummy = Shell("ois.exe c:\rr\Images\" & ty)

السبب هو أن مسار الصورة يؤخذ كمعامل نصي، يعني أن برنامج إدارة الصور يظن أن صورتك اسمها ty، لذا ينبغي إعطاؤه الاسم الفعلي لا اسم المتغير الذي يحوي الاسم الفعلي...

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

تحية طيبة لجميع أخواني بالمنتدى .

أخى أحمد مبارك .. بارك الله فيك

الحل الذي تفضلت به صحيح بيفتح الصورة

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

ولو فرضنا أنه سيتم طباعة 10 ورقات تخص السجل رقم 1 فرضاً وهذا الحاصل عندي ففي هذه الحالة ستجد أن المستخدم سيكرر تجيز الصورة وطباعتها لعدد 10 مرات وسيتم التبديل والانتقال بين برنامجين وهذه مشاقة على المستخدم

المطلب الأول :-

فهل من طريقة تفتح الصورة كما تفضلت وتطبعها تلقائياً دون رؤيتها .

بمعنى تكتم فتح البرنامج المساعد للصور وتغلقه بعد ما يكون البرنامج أخذ أمر الطباعة للصور التى حددتها .

المطلب الثاني :-

كيفية تعديل المسار ليتفق مع وضع القاعدة على شبكة دون التقيد بمسار معين c:\rr\Images

حيث أنى لأتسبدلت المسار السابق بالتالى CurrentProject.Path ولكن لم تفلح الطريقة .

يرجى التكرم بالرد

شاكرك حسن تعاونك