طباعة الصورة من داخل اليوزرفورم

[ashraf_abdalla]

السلام عليكم ورحمة الله وبركاته
السادة الأساتذة الأجلاء
يرجى من سيادتكم مساعدتى فى طباعة الصورة الحالية الموجوده داخل اليوزرفورم وكل ما اريده هو اذا كانت الصورة موجوده داخل Image1 وعند الضغط على زر الطباعة يطبع والا تظهر رساله تفيد لا توجد صورة  لطباعتها و انا بحثت فى حل هذه المشكلة اولاً فوجدت هذا الكود للإستاذ/ عماد غازى ولكن فى هذا الكود يطلب منى تحميل الصورة من المسار الموجوده فية ولكن الصورة موجوده الآن بالفعل داخل الـ Image1  كل ماريده الطباعة فقط عند الضغط على زر الطباعه .
ولسيادتكم جزيل الشكر والتقدير على كل ما تقدموه لنا من مساعدات وافكار وأكواد ممتعه .
 طباعة الصور من الفورم - Copy.xlsm

[أ / محمد صالح]

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

فلماذا نريد طباعتها بعد وضعها في النموذج الأولى طباعتها من مسارها الأصلي

إلا إذا كان مصدر الصورة ليس على الجهاز والهدف هو استخراجها مرة أخرى 

على كل حال

يمكنك استعمال هذا الكود في الزر

Private Sub CommandButton1_Click()
Dim image_path
image_path = CreateObject("scripting.filesystemobject").GetSpecialFolder(2).Path & "\mas.bmp"
SavePicture Image1.Picture, image_path
If MsgBox("هل تريد طباعة الصورة الآن؟", vbYesNo) = vbNo Then Exit Sub
Call apiShellExecute(Application.hwnd, "print", image_path, vbNullString, vbNullString, 0)
End Sub

بالتوفيق 

[اشرف عبدالله الفقى]

الف مليون شكر يا استاذ / محمد  على هذا الكود الرائع هذا هو المطلوب بعينه ربنا يجعله فى ميزان حسناتك الى يوم القيامه

آسف للتأخير على الرد

[أ / محمد صالح]

آمين ولك مثل ما دعوت وزيادة بإذن الله