Hi All,We have 2 modules Employee and Report.In the employee module we have information for each employee including their photographs as attachment.
Now in the report module we have to create a report in which we have to show photograph of each employee as well as their other information.
Report can be in any format : Word or Excel
We have tried creating an HTML report and we have been succesful.
However same thing is not working for MS Word.
Code for HTML report:
While Not( doc Is Nothing)
Print |<tr>|
Dim vEval As Variant
vEval = Evaluate("@AttachmentNames", doc)
i=0
Forall v In vEval
If v <> "" Then
If (i<1) Then
Set attch = doc.GetAttachment( v)
i=i+1
dbpath = doc.path(0)
docID = doc.UniversalID
serName = doc.serName(0)
viewID=ViewByDocID.UniversalID
imgName = attch.Name
If Not imgName ="" Then
Print |<td>| +|<img src="http://|+ serName + |/|+ dbpath+|/|+viewID + |/|+docID+|/|+file+|/|+imgName+|" width= 150 height =150>|
Print |</td>|
End If