طباعة الصورة فقط من داخل النموذج

[jore]

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

 

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

علما بان الصورة من خارج قاعدة البيانات

 

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

[jore]

مرفق للتوضيح

 

طباعة.rar

[jjafferr]

تفضل 

 

طريقتين لعرض الصور:

في النموذج نادي التقرير هكذا:

DoCmd.OpenReport "rpt_Image2", acViewPreview

وفي التقرير ، على حدث الطباعة ، عندك الاختيارين:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

    
    'but why do this, when we can read the info directly from the Form,
    'this is a much faster way
    Me.ImageFrame.PictureData = Forms!frm_1!ImageFrame.PictureData
    
    
End Sub

او

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

    'we can read the picture from the File again, this way
    Me.ImageFrame.Picture = Application.CurrentProject.path & "\Photos\" & Forms!frm_1!no & ".jpg"
    
    
End Sub

وانا افضل الطريقة الاولى ، لأننا نقرأ الصورة من النموذج مباشرة  ،

بينما في الطريقة الثانية ، فاننا نطلب الصورة من مجلد الكمبيوتر (يعني انت طلبتها مرة للنموذج ، والان تطلبها للتقرير  )

 

 

جعفر

21.طباعة.zip

[jore]

الف شكر jjafferr

 

هذا هو المطلوب   ....

[jjafferr]