opa pessoal tamo ai falando dele de novo , alguem sabe como imprimir fotos no active report , apartir de um tbl de imagens onde guardo o caminho das fotos , tenho que puxar as fotos pelo codigo do Cliente e essas fotos tem o memo codigo dele , gostaria de fazer um relatorio com fotos desse registro , pra poder exportar esse registro pra html e enviar por email , algume sabe fazer isso por favor

 

 obrigado sem mais

Private Sub Command1_Click()
Dim Caminho As String
    Caminho = "F:Visual_BasicExemplosissdamspAccessPrefeitura1.gif"
    ActiveReport1.Image1.SizeMode = ddSMStretch
    ActiveReport1.Image1.Picture = LoadPicture(Caminho)
    ActiveReport1.Show
End Sub

testado....

Obrigado por postar Alfterra , mas nao aconteceu nada , tipo mas acho q desse jeito ele vai pegar uma Imagem especifica e vai levar pro Active , certo? e as imagens teria q ser de uma tbl , eu coloquei assim , nao deu certo , mas nao deu erro

 

Dim sPath As String
Dim rpt As New rptRelLotes
Dim Caminho As String

   

C nao faz um SELECT pra achar o cliente/cadaströ..... o caminho da imagem nao ta na tabela...

entao.... basta vc atribuir o caminho a variavel e fazer como te mostrei acima e piba.....

ah! .... [e ponto de interrogacao que meu teclado ainda nao ta configurado...

ok vou tentar

mas o caminho da foto nao esta na tbl de cadastro esta em ourta tbl