用activeReport报表打印,在报表上加入一个Image控件(放图片)和Field1(放图片名),设置其属性大小与A4纸相同,加入下列代码:
Private Sub Detail_Format()
On Error GoTo 10
Dim sql As String
sql = App.Path & "\photo\" & Field1.Text & ".jpg"
Image1.Picture = LoadPicture(sql)
Exit sub
10 Image1.Picture = Nothing
End Sub