Bom pessoal, eu queria saber se tem algum jeito de salvar a imagem do picturebox em um arquivo de imagem, porem, a imagem que deveria salvar seria o texto do label que eu usei o seguinte codigo:

Me.Picture1.Print ; Me.Label1.Caption

 

Que jogou o valor da label no picture.

 

Para salvar a imagem tentei esse:

SavePicture Picture1.Image, "C:Teste.BMP"

 

Mas ele só salva o fundo que é branco, e nao salva os valores das labels que estavam nele.

 

Desde ja agradeço.

faz assim colega

 

 

ediga se funcionou

Não esta dando certo.

Acontece a mesma coisa, salva uma imagem apenas com o fundo e sem o conteudo da label.

 

Não teria como dar 1 print screen só da picture e depois salvar?

 

Você acha melhor eu fazer um relatorio pelo crystal?

Porque o programa gera 1 etiqueta com codigo de barras  de acordo com os dados dos campos,

eu achava melhor gerar uma imagem.

 

Grato

O código funciona verifique o seguinte

 

se você colocou o nome do seu label, no lugar do label1

 

e certifique-se do label estar inserido dentro do picture box, e não fora

 

Desculpe colega fiz um novo teste com uma figura inserida e percebi que realmente sai apenas o fundo porém achei a solução, veja como

 

insira o picturebox com anteriormente, insira o seu label, e também insira um imagebox, agora veja como funciona você prepara a picture envia para o imagebox e ai sim salva eis o código

 

você pode deixar a propriedade visible do image como false

 

Private Sub cmdTeste_Click()
  Dim Y As Integer
  Dim X As Integer
  H = Picture1.TextHeight(Label1.Caption)
  W = Picture1.TextWidth(Label1.Caption)
  Picture1.CurrentX = Label1.Left
  Picture1.CurrentY = Label1.Top
  Picture1.Font = Label1.Font
  Picture1.FontSize = Label1.FontSize
  Picture1.FontBold = Label1.FontBold
  Picture1.Print Label1.Caption
  Image1.Picture = Picture1.Image
  SavePicture Image1.Picture, "c:imagem.jpg"
End Sub

veja se agora funciona

O seu código nao manda o conteudo do label pro picture aqui, tentei usar o esquema do image mas continua salvando só o fundo =/

 

Meu código abaixo:

 

Private Sub Command1_Click()
Dim fonte As String
fonte = Picture1.Font

Me.Picture1.Font = IDAutomationHC39M
Me.Picture1.Font = arial
Me.Picture1.Print Me.Label16.Caption;
Me.Picture1.Print Me.Label14.Caption
Me.Picture1.Print Me.Label17.Caption;
Me.Picture1.Print Me.Label15.Caption

Me.Picture1.Font = fonte
Me.Picture1.Print ; Me.Label1.Caption
  Image1.Picture = Picture1.Image
  SavePicture Image1.Picture, App.Path & "imagem.jpg"

End Sub

 

Grato