No Active Reports isso é muito simples e rápido:
Você precisará criar, juntamente com os demais campos, um campo tipo texto para gravar o caminho da figura - exemplo (C:PastaTal_\_FiguraTal.BMP). Coloque um Image no designe do seu relatório (Image1) e faça o seguinte:
'****General
Public sPathFigura as String
'***Botão imprimir que está no form (Form1):
Me.MousePointer = 11
Dim sPath As String
sPath = App.Path & "Bdimobiliaria.MDB"
sSql = "select * from Tbl_Apartamentos where Codigo =" & Me.txtcod
sPathFigura = rst!Figura 'A variável sPathFigura guarda o caminho da figura do seu bd
Set rst.ActiveConnection = cnBd
rst.CursorLocation = adUseClient
rst.Open sSql, , adOpenStatic, adLockBatchOptimistic
rst.ActiveConnection = Nothing
Dim rpt As New rptRelApart
Set rpt = New rptRelApart
rpt.DataControl1.Recordset = rst
rpt.Show 1
end sub
'***No designe do relatório rptRelApart basta passar o parâmetro:
Private Sub ActiveReport_PageStart()
Me.Image1.Picture = LoadPicture(Form1.sPathFigura)
Exit Sub
End Sub
Prontinho, sua figura estará estampada no relatório assim que for visualizado..
