[Resolvido]Fotos no Relatório

Olá, bom dia.

Estou com um sistema, e preciso imprimir fotos no relatório onde, as respectivas fotos, estarão vinculadas com o registro.
Pois é pra impressão de carteiras de membros com suas fotos. E não estou conseguindo fazer funcionar.

Usei a seguinte instrução no formulário para vinculação:

Private Sub btnLocalizar_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.localfoto = strCaminho
Me.FOTO.Picture = Me.localfoto
Me.FOTO.Visible = True

End If

End Sub

E agora que imprimir no relatório todos os registros com suas fotos. Mas a foto não aparece. Obrigado.

De que forma está a alojar as fotos no formulário? Utiliza um controle imagem? Descreva como está a fazer por favor.

Elas estão como TEXTO.

Então vai baixar este exemplo que eu tenho. Veja a forma como as fotos são alojadas no form.

http://dl.dropbox.com/u/8157744/imagemform.zip

Depois para passar a foto respectiva para um relatório utilizamos o seguinte:

Copiamos o controle Imagem3 do form e colocamos no relatório e a caixa foto e este código

Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(foto) Then
Imagem3.Picture = foto
Else
Imagem3.Picture = ""
End If
End Sub

Qualquer dificuldade apite (rsrsrs)

O seu exemplo é o que está pronto no meu também..

Mas agora preciso que quando eu visualizar o relatório apareça a foto no relatório.

Então o código está no tópico anterior

1- Copie o controle Imagem3 para o cabeçalho do Relatório

2- Copie a caixa de texto que transporta o caminho da foto e redimensione porque não precisa ser visualizada

3- Inserir este código adaptado aos nomes que colocou, é óbvio

foto= caminho da caixa de texto para a foto

Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(foto) Then
Imagem3.Picture = foto
Else
Imagem3.Picture = ""
End If
End Sub

Continuo sem entender...Pois em relação a foto em relatório estou com problemas..Teria como fazer um modelo para eu poder ver como funcionada..Obrigado

Faço sim.

O link é o mesmo, so´que esta leva o relatório com a foto

http://dl.dropbox.com/u/8157744/imagemform.zip

só uma coisa que me esqueci. vincule a foto na pasta porque eu vinculei a partir do meu pc e isso pode dar erro.

o sistema enviado não foi com o modelo de relatório. O Formulário sem problemas. Mas o relatório que eu preciso do modelo, ainda não veio.

Obrigado..

Não entendi amigo???? Não foi junto um relatório com a montagem da foto? Que relatório é que você precisa??? Você pediu que a foto fosse colocada no relatório, esta foi....

Você me mandou o modelo para anexar a foto no formulário.

Agora eu preciso de um modelo de RELATÓRIO que aparece a foto como anexado no formulário.

Tipo:

João marcos (ai em um campo aparece a foto do JOão Marcos)
Adriana (aqui a mesma coisa)

Entendeu?

Baixe novamente do mesmo link.

Para fazer o que você quer era só colocar chave primária na tabela, no form (ID) e no relatório. ! botão de comando para abrir o relatório no registro seleccionado no form

Ainda estou com dificuldades de entendimento...Peço até desculpas...

Quero que aparece a foto no relatório e ainda não sei nem por onde começar...kkkk

Mas basta baixar de novo o exemplo no mesmo link que está lá tudo. Você baixou? Olhe o tópico anterior ao que meteu agora!!!

Agora sim veio com o relatório.

Mas agora surgiu outro problema.

Para cada registro precisaria que aparece a foto. mas que só aparece a foto do primeiro registro. E Eu preciso que aparece a foto para cada registro com suas respectivas fotos..

João

Você não viu isso bem. Para cada registro uma foto diferente. A bd que lhe enviei levava 2 registros já inseridos. Você selecciona o registro e clica no botão imprimir e o relatório aparece com o registro correcto e a foto correspondente. Experimente inserir um novo registro e eum nova foto e depois enviar para a impressora. Ou existe algo que você não está a saber explicar e eu a não entender???

Correto. Esse exemplo entendi perfeitamente.

Só que gostaria de um RELATÒRIO GLOBAL onde aparece todos os registros com todas as fotos de cada registro.

Já podia ter dito (rsrsrrs).

É fácil companheiro:

1- Coloque o controle Imagem3 no detalhe do relatório
2- Coloque a caixa Caminho no detalhe também

Coloque este código

Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(Caminho) Then
Imagem3.Picture = Caminho
Else
Imagem3.Picture = ""
End If
End Sub

Veja o exemplo

http://dl.dropbox.com/u/8157744/imagemform.rar

Resolvido com sucesso. Muito obrigado.

Obrigado pelo retorno amigo e sempre que precisar retorne aqui