IMPRIMIR IMAGEM JPG NO CR6 X VB6
Olá,
Uso o VB6 e gostaria de saber como faço para imprimir no Crystal Report 6, após consultar um registro de um BD, onde contém um campo com o endereço da imagem externa em jpg, Ex: [Ô]c:\caminho\imagem.jpg[Ô]. Após esta consulta quero no relatório mostrar os dados e também esta imagem. Os dados obviamente já consigo, mais a imagem ainda não. Alguém poderia ajudar????
Uso o VB6 e gostaria de saber como faço para imprimir no Crystal Report 6, após consultar um registro de um BD, onde contém um campo com o endereço da imagem externa em jpg, Ex: [Ô]c:\caminho\imagem.jpg[Ô]. Após esta consulta quero no relatório mostrar os dados e também esta imagem. Os dados obviamente já consigo, mais a imagem ainda não. Alguém poderia ajudar????
Eu uso o Crystal versão 8,5 e na seção onde quero imprimir a imagem faço um Insert - Ole Object - Imagem do PaintBrush
e no código da seção do crystal coloco a programação para carregar a imagem:
Private Sub Section10_Format(ByVal pFormattingInfo As Object)
On Error Resume Next
Set [txt-color=#e80000]Foto1[/txt-color].FormattedPicture = LoadPicture()
If fldFoto1.Value <> [Ô][Ô] Then Set Foto1.FormattedPicture = LoadPicture([txt-color=#e80000]fldFoto1[/txt-color].Value)
Foto1.LeftLineStyle = crLSNoLine
Foto1.RightLineStyle = crLSNoLine
Foto1.TopLineStyle = crLSNoLine
Foto1.BottomLineStyle = crLSNoLine
End Sub
Observação:
[txt-color=#e80000]Foto1 [/txt-color]é o nome do objeto que inserà com [Ô]Insert - Ole Object - Imagem do PaintBrush[Ô]
[txt-color=#e80000]fldFoto1[/txt-color].Value é um campo que contem o caminho da imagem. você insere esse campo como se fosse um campo de dados qualquer, porém deixa ele invisivel.
e no código da seção do crystal coloco a programação para carregar a imagem:
Private Sub Section10_Format(ByVal pFormattingInfo As Object)
On Error Resume Next
Set [txt-color=#e80000]Foto1[/txt-color].FormattedPicture = LoadPicture()
If fldFoto1.Value <> [Ô][Ô] Then Set Foto1.FormattedPicture = LoadPicture([txt-color=#e80000]fldFoto1[/txt-color].Value)
Foto1.LeftLineStyle = crLSNoLine
Foto1.RightLineStyle = crLSNoLine
Foto1.TopLineStyle = crLSNoLine
Foto1.BottomLineStyle = crLSNoLine
End Sub
Observação:
[txt-color=#e80000]Foto1 [/txt-color]é o nome do objeto que inserà com [Ô]Insert - Ole Object - Imagem do PaintBrush[Ô]
[txt-color=#e80000]fldFoto1[/txt-color].Value é um campo que contem o caminho da imagem. você insere esse campo como se fosse um campo de dados qualquer, porém deixa ele invisivel.
FEDERHEN, também estou com a mesma dificuldade do amigo, mas me diga uma coisa, onde colocou este código que postou, não entendi direito...
Este código vai no formulário de designers.
Dê um duplo-click no formulário de layout do relatório, na seção onde deve aparecer a imagem, que vai abrir certinho o lugar onde vai o código...
Dê um duplo-click no formulário de layout do relatório, na seção onde deve aparecer a imagem, que vai abrir certinho o lugar onde vai o código...
Entendi, é que você está utilizando o desenvolvimento dentro do próprio vb...
Sim,
Uso o crystal incorporado ao VB e não externo.
Uso o crystal incorporado ao VB e não externo.
Tópico encerrado , respostas não são mais permitidas