Ir para o conteúdo
Batista15

PictureBox

Mensagens Recomendadas

Batista15    0
Batista15

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Batista15    0
Batista15

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!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Batista15    0
Batista15

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!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
bioshock    170
bioshock

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Batista15    0
Batista15

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
nokPT    4
nokPT

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).

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade