مساعدة في كتابة كود طباعة

[blue sea]

السلام عليكم ..

ارجو كتابة كود برمجي في الزر طباعة  في نموذج select to .. الزر يقوم بطباعة الصورة الموجودة في الحقل picpath

..مع الشكر والتقدير ..

 

print picture.rar

[صالح حمادي]

السلام عليكم

تفضل الكود التالي يقوم بطباعة الصورة مباشرة بدون عرضها في تقرير

    Dim imgPath As String
    Dim app As Object

    ' تحديد مسار الصورة
    imgPath = CurrentProject.Path & "\Pictures\" & Me.nn & ".jpg"
    Set app = CreateObject("Shell.Application")
     ' فتح الصورة في عارض الصور الخاص بالأوفيس
    app.Open imgPath

     ' طباعة الصورة
    Dim objShell As Object
    Set objShell = CreateObject("Shell.Application")
    objShell.Namespace(0).ParseName(imgPath).InvokeVerbEx ("print")
        
   Set app = Nothing
   Set objShell = Nothing

 

print picture.rar

[blue sea]

جزيل الشكر لك