• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Batista15

PictureBox

7 mensagens neste tópico

Boas Pessoal,

Estou a realizar um projecto que precisava de imprimir uma picturebox, mas não podia ser com o printform!

Enviar para o word ou assim, se alguem me pudesse dar uma ajudinha agradecia

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não percebi bem o que queres.

Queres copiar uma PictureBox para o Word?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não percebi bem o que queres.

Queres copiar uma PictureBox para o Word?

Sim ao clicar em um botao enviar para o word a pictureBox, para imprimir!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Já experimentei algo do tipo:

Private Sub DocToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DocToolStripMenuItem.Click
        ' Aqui são definidas as características do SaveDialog.

        Me.SaveFileDialog1.Title = "Guardar..."
        Me.SaveFileDialog1.DefaultExt = "doc"
        Me.SaveFileDialog1.Filter = "Ficheiros de texto (*.doc)|(*.doc"
        If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim strAux As String
            strAux =  & PictureBox1.BackgroundImage & vbNewLine





            File.WriteAllText(Me.SaveFileDialog1.FileName, strAux)
        End If
    End Sub


Mas está a dar erro!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas, quanto ao código para carregares a imagem, posso-te arranjar:

OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "Jpeg (*.Jpeg)|*.Jpeg|Jpg (*.Jpg)|*.Jpg"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

            FotoPictureBox.Image = Image.FromFile(OpenFileDialog1.FileName)

        End If

Agora passar esse campo para o word, vou experimentar neste momento, já te digo algo.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas, quanto ao código para carregares a imagem, posso-te arranjar:

OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "Jpeg (*.Jpeg)|*.Jpeg|Jpg (*.Jpg)|*.Jpg"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

            FotoPictureBox.Image = Image.FromFile(OpenFileDialog1.FileName)

        End If

Agora passar esse campo para o word, vou experimentar neste momento, já te digo algo.

Muito Obrigado! Mas esse código serve para inserir uma imagem não para enviar para o word

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Só que gravares uma imagem com extensão .doc, não faz automaticamente um ficheiro Word.

No programa, vais ter que criar uma aplicação Office (Word), criar um ficheiro novo, copiar a imagem para o clipboard e fazer paste no word para depois gravar o documento.

Podes fazer em silent-mode para que utilizador não perceba o que se passa.

Também tens que activar uma opção para ignorar erros (por exemplo o ficheiro já existir, quer gravar por cima).

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora