INSERIR FOTO NO WORD DE UM CAMPO
Oi pessoal estou fazendo um testes sendo para imprimir relatórios com o word, sendo que tenho uma tabela chamada aluno que contém um campo chamado foto, esse campo foto gurda somente a path do arquivo gostaria de saber como poderei fazer para que ele mostre a foto do aluno no relatório do word, pois os dados já consegui está faltando simplismente a foto.
no caso IMG_CAM seria meu campo onde guardo o path , essa seria a tbl onde guardo as fotos Tbl_imagensApart
esse seria o campo na tbl onde guaro o codigo da foto PROD_COD
e aki seria o camop no vb onde ponho o codigo da foto txtCodigo
MsgBox "Os dados foram enviados para o Word ... ! ", vbInformation
Dim rsFotos As ADODB.Recordset
Dim Word As Word.Application
Dim cont As Integer
Set Word = New Word.Application
With Word
.Visible = True 'habilita visualização do word
.Documents.Add DocumentType:=wdNewBlankDocument
.Selection.TypeText Text:=lbltitulo.Caption
. .Selection.TypeText Text:=lblsala.Caption & ": " & txtsala.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=lblgaragem.Caption & ": " & txtgaragem.Text
.Selection.TypeParagraph
'Inseri Imagens no Word
Set rsFotos = cnBd.Execute("Select * from Tbl_imagensApart where PROD_COD = " & txtCodigo.Text)
For cont = 1 To imgFoto.Count
.Selection.InlineShapes.AddPicture FileName:=rsFotos!IMG_CAM, LinkToFile:=False, SaveWithDocument:=True
.Selection.TypeParagraph
rsFotos.MoveNext
Next cont
End With
Set rsFotos = Nothing
Set Word = Nothing
esse seria o campo na tbl onde guaro o codigo da foto PROD_COD
e aki seria o camop no vb onde ponho o codigo da foto txtCodigo
MsgBox "Os dados foram enviados para o Word ... ! ", vbInformation
Dim rsFotos As ADODB.Recordset
Dim Word As Word.Application
Dim cont As Integer
Set Word = New Word.Application
With Word
.Visible = True 'habilita visualização do word
.Documents.Add DocumentType:=wdNewBlankDocument
.Selection.TypeText Text:=lbltitulo.Caption
. .Selection.TypeText Text:=lblsala.Caption & ": " & txtsala.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=lblgaragem.Caption & ": " & txtgaragem.Text
.Selection.TypeParagraph
'Inseri Imagens no Word
Set rsFotos = cnBd.Execute("Select * from Tbl_imagensApart where PROD_COD = " & txtCodigo.Text)
For cont = 1 To imgFoto.Count
.Selection.InlineShapes.AddPicture FileName:=rsFotos!IMG_CAM, LinkToFile:=False, SaveWithDocument:=True
.Selection.TypeParagraph
rsFotos.MoveNext
Next cont
End With
Set rsFotos = Nothing
Set Word = Nothing
Boa Dica Guto, Parabéns.
Tópico encerrado , respostas não são mais permitidas