CRYSTAL 4 - FOTOS
Como faço para o Crystal Reports 4, inserir a foto no relatório?
#O Banco apenas grava o caminho da foto, a mesma são armazenada
em uma pasta (Fotos) de acordo com o cadastro de cada nome.
#Aqui o Crystal abre o relatório, bastando apenas selecionar o nome desejado.
Apenas queria uma dicas como colocar a foto no relatório...
Private Sub CmdImprimir_Click()
[ô]Box p/ informar o nome
If CboNome.Text = [Ô][Ô] Then
MsgBox [Ô]Informe o nome...[Ô], vbExclamation, [Ô]Advertência[Ô]
CboNome.SetFocus
Exit Sub
Else
Dim Nome
Nome = (CboNome.Text)
End If
[ô]Caminho do Banco de Dados
CrImpressao.DataFiles(0) = App.Path & [Ô]\Banco\Cdados.mdb[Ô]
[ô]CrImpressao.DataFiles(0) = App.Path & [Ô]\Fotos\Joao.jpg[Ô] -> Assim dá erro...
[ô]Selection Formula
CrImpressao.SelectionFormula = [Ô]{TabNome.Nome} = [ô][Ô] & CboNome.Text & [Ô][ô][Ô]
[ô]Caminho do Relatório - Relação de NOME com FOTO
CrImpressao.ReportFileName = App.Path & [Ô]elacao.rpt[Ô]
[ô]CrImpressao.SortFields(0) = [Ô]+{TabNome.Nome}[Ô]
CrImpressao.WindowTitle = [Ô]Relação de Nome com Fotos[Ô]
CrImpressao.WindowState = crptMaximized
CrImpressao.Destination = 0
CrImpressao.Action = 1
End Sub
#O Banco apenas grava o caminho da foto, a mesma são armazenada
em uma pasta (Fotos) de acordo com o cadastro de cada nome.
#Aqui o Crystal abre o relatório, bastando apenas selecionar o nome desejado.
Apenas queria uma dicas como colocar a foto no relatório...
Private Sub CmdImprimir_Click()
[ô]Box p/ informar o nome
If CboNome.Text = [Ô][Ô] Then
MsgBox [Ô]Informe o nome...[Ô], vbExclamation, [Ô]Advertência[Ô]
CboNome.SetFocus
Exit Sub
Else
Dim Nome
Nome = (CboNome.Text)
End If
[ô]Caminho do Banco de Dados
CrImpressao.DataFiles(0) = App.Path & [Ô]\Banco\Cdados.mdb[Ô]
[ô]CrImpressao.DataFiles(0) = App.Path & [Ô]\Fotos\Joao.jpg[Ô] -> Assim dá erro...
[ô]Selection Formula
CrImpressao.SelectionFormula = [Ô]{TabNome.Nome} = [ô][Ô] & CboNome.Text & [Ô][ô][Ô]
[ô]Caminho do Relatório - Relação de NOME com FOTO
CrImpressao.ReportFileName = App.Path & [Ô]elacao.rpt[Ô]
[ô]CrImpressao.SortFields(0) = [Ô]+{TabNome.Nome}[Ô]
CrImpressao.WindowTitle = [Ô]Relação de Nome com Fotos[Ô]
CrImpressao.WindowState = crptMaximized
CrImpressao.Destination = 0
CrImpressao.Action = 1
End Sub
Vc quer por a forto em um UserForm??
Se for eu tenho um ex.
Se for eu tenho um ex.
Citação::
Vc quer por a forto em um UserForm??
Se for eu tenho um ex.
Não, eu queria mesmo é uma dicas de como colocar a foto no relatórios do Crystal 4
de acordo com o nome selecionado pelo combobox
Wlw!
Citação::
http://www.docstoc.com/docs/2153496/Tutorial-on-How-to-Load-images-in-Crystal-Reports-dynamically-
O Exemplo é para VB NET... Eu queria do Crystal com vb6
Wlw!
Alguém tem alguma luz... 
Tópico encerrado , respostas não são mais permitidas