ARRASTAR E SOLTAR

TROVAM 01/03/2005 15:38:18
#70577
Cara tente salvar em um diretorio fora do DeskTop, por exemplo crie um diretorio no c:\ e verfique tb o nome da figura... e esse objeto imgFoto é um componente Picture ?

Até mais...
GUTO 01/03/2005 15:42:29
#70579
eu num entendo muito esse controle de imagem q eu recebi veio , tem um "picFundo" nele que é um picture , depois tem um picFoto por cima , e tem uma image, em cima de tudo que se chama imgFoto
GUTO 01/03/2005 15:46:28
#70580
ae Trovam eu mudei pra picFoto e deu um erro invalid property value , mas ae eu fui no word e colei , ae apareceu uma imagem tipo uma mauzinha com uma varinhana mao assim ta ligado
TROVAM 01/03/2005 15:55:08
#70583
Vc poderia mandar o seu projeto para o meu email para poder dar uma olhada?

Até mais..
GUTO 01/03/2005 16:12:07
#70589
ja foi!!!!!!!!!!!
TROVAM 01/03/2005 16:51:44
#70596
Mano da uma olhada agora, eu já coloquei para incluir a imagem independente do número de figuras associados a um apartamento... da uma olhada e me fala blz?

Private Sub Command4_Click()
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 'Nova Pagina
.Selection.TypeText Text:=txtcod.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtcodimo.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=txtdescricao.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtname.Text
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtbairro.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=txtdormitorio.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtcozi.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=txtsala.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtgaragem.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=txtmetra.Text 'Escreve no word
.Selection.TypeParagraph 'Enter
.Selection.TypeText Text:=txtutil.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=txtobsdorm.Text 'Escreve no word
.Selection.TypeParagraph

'Inseri Imagens no Word
Set rsFotos = Bdimobiliaria.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
End Sub
GUTO 01/03/2005 17:16:09
#70610
estou vendo agora ja posto irmao , obrigado
GUTO 01/03/2005 17:38:20
#70613
ae trovam essa valew , esta dano pau na ora que imprimi tipo imprimi so pela metade , mas ai tenho certeza q é coisa do meu computador, eu conheço a peça obrigado ,fico bala memo, mas ai num quero ser forgado so essa ja valew , queria saber se da pra enviar isso ate pro destinataroi de correio outlook? e como se faz pra eu colocar as label tamen tem como fico tipo assim ne
.Documents.Add DocumentType:=wdNewBlankDocument 'Nova Pagina
.Selection.TypeText Text:=txtcod.Text 'Escreve no word
.Selection.TypeParagraph

e no word fico assim
1
como faz pra eu dexa a label tamem tipo

codigo 1

tipo um na frente do outro, se souber e quiser falar valew trovam se num souber posta ai , que eu fecho o topico
TROVAM 01/03/2005 17:47:49
#70614
Para colocar o label vai ficar da seguinte forma:

.Documents.Add DocumentType:=wdNewBlankDocument 'Nova Pagina
.Selection.TypeText Text:= lblcod.caption & ": " & txtcod.Text 'Escreve no word
.Selection.TypeParagraph

Já a parte do outllok eu à± conheço cara, desculpe...

Até mais...
GUTO 01/03/2005 18:12:57
#70617
Ae trovam essa fita ae resolveu ate o meu problemas com o print que eu tinha valeu memo , o ruim é q no print acabou num imprimindo a foto dimensionada do jeito certo enbaralhou tudo veio, o codigo no print é mais ou menos esse se tu soube dimensiona da uma mensagem interna pra mim veio é q a foto ta saindo errado é a ultima falow , ta assimmen print um pedaço dele ne

Printer.Print
Printer.PaintPicture imgFoto.Item(0), 0, 0, picFoto.Width, picFoto.Height
'Printer.EndDoc 'Envia o documento para a impressora

Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/aa"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
Printer.Print Tab(55); "APARTAMENTOS --------------------------------"
'----------------------------------------------------------
Printer.Print Tab(55); "Codigo "; Tab(55); txtcod.Text


ta saindo assim a foto pequena no canto e sem dimensionamento e os dados nop meio , sera q num tem como deixa os dados no canto e a foto depois q acabar os dados em baixo, se sabe? quanto mais veoi obrigado qualquer coisa mensagem interna , vo fexa esse lance aki valew

********* codigo do proiprietario
* * codigo do fhgdfh
* * dhdgsj
*********
Página 3 de 3 [30 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar