لكي يتم وضع الصورة في النموذج يجب أن يتم استعراض الملفات وتحديدها
فلماذا نريد طباعتها بعد وضعها في النموذج الأولى طباعتها من مسارها الأصلي
إلا إذا كان مصدر الصورة ليس على الجهاز والهدف هو استخراجها مرة أخرى
على كل حال
يمكنك استعمال هذا الكود في الزر
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
بالتوفيق