Private Sub DataReport_Activate()
Dim CTRL1 As RptImage

Rst.MoveMin

 

Set CTRL1 = Me.Sections(2).Controls("image1")
Set CTRL1.Picture = LoadPicture(Rst.Fields(1))
Me.Refresh

For j = 1 To 7
     Rst.AbsolutePosition = j
     Set CTRL1.Picture = LoadPicture(Rst.Fields(1))
     Rst.MoveNext
     Me.Refresh
     For i = 0 To 50000
          DoEvents
     Next i

Next j

End Sub

Ama, assim que mando imprimir da um erro nessa linha

Set CTRL1 = Me.Sections(2).Controls("image1")
Subscript out of range run-time error 9

Ama, na section(2) da certo, mas a section 2 é o cabeçalho, eu preciso na section 1 que é o detalhe, pois kda registro vai ter uma figura diferente, e na section 1 da esse erro acima que te falei, colocando na section 2 ele pega so a ultima figura

e ai ama, vc esta perto de chegar la, so agora descobrir como faço isso na secao detail do relatorio. nao estou conseguindo

              no código acima, onde declaro a variável rst e como devo fazer?

 

Att,

Marcelo

shel rst é seu recordset, mas nao funciona desse jeito ai nao, ja tentei