none
Imprimir o conteudo do TextBox RRS feed

  • Pergunta

  • Acho que de tão simples o que preciso que ninguém parece que sabe como fazer inclusive eu é claro. Já pesquisei em umas 2000 threads e ninguém informa como imprimir o conteúdo do um TextBox. Eu só queria escrever uma palavra num TextBox, clicar no ícone da impressora e esta palavra seria impressa num papel numa posição XY pré-determinada no código. Se alguém tiver a bondade de me informar como seria este código, fico muito grato.

    Durval

     
    quinta-feira, 13 de outubro de 2016 22:52

Respostas

  • Olá,

    O Durval entrou em contato comigo por e-mail e, depois de entender o que ele estava querendo fazer, eu sugeri que ele alterasse o código dele assim:

    Using font = New Font("Times New Roman", 14)
                Using brush = New SolidBrush(Color.Black)
                    If PictureBox1.BackColor = Color.Black Then
                        e.Graphics.FillRectangle(Brushes.Black, x1, y1, 15, 10)
                        e.Graphics.DrawString(TextBox1.Text, font, brush, New RectangleF(x1 + 17, y1, printDocument.DefaultPageSettings.PrintableArea.Width, printDocument.DefaultPageSettings.PrintableArea.Height))
                    End If
    
                    If PictureBox2.BackColor = Color.Black Then
                        e.Graphics.FillRectangle(Brushes.Black, x2, y1, 15, 10)
                        e.Graphics.DrawString(TextBox1.Text, font, brush, New RectangleF(x2 + 17, y1, printDocument.DefaultPageSettings.PrintableArea.Width, printDocument.DefaultPageSettings.PrintableArea.Height))
                    End If
    
                    If PictureBox3.BackColor = Color.Black Then
                        e.Graphics.FillRectangle(Brushes.Blue, x3, y1, 15, 10)
                    End If
                End Using
            End Using

    Ainda estou esperando a resposta dele, mas, acredito que tenha resolvido a sua necessidade..


    André Alves de Lima
    Microsoft MVP - Client App Dev
    Visite o meu site: http://www.andrealveslima.com.br
    Me siga no Twitter: @andrealveslima

    segunda-feira, 17 de outubro de 2016 14:09
    Moderador

Todas as Respostas

  • Ola como você quer fazer isso usando Reportviewer ? , PrintDocument ? , ....

    Se for com reportviewer basta criar um .rdlc criar um parametro e chamar o relatorio e enviar o conteudo do textbox para o parametro, caso possa ser dessa forma posso ajudar posta ai de volta.

    Junior

    quinta-feira, 13 de outubro de 2016 23:33
  • Olá Júnior, o código abaixo já imprime os retângulos nas suas coordenadas XY, eu queria inserir neste mesmo código os comandos para imprimir o  conteúdo que vai no TextBox que é uma palavra. As coordenadas de Location dos TextBox são: 45;170 e 124;170. Obrigado por me ajudar. 

    Private Sub PrintImage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDoc.PrintPage
            Dim x1, x2, x3 As Integer
            Dim y1 As Integer
            x1 = 275 : x2 = 374 : x3 = 474
            y1 = 104 
           
            If PictureBox1.BackColor = Color.Black Then
                e.Graphics.FillRectangle(Brushes.Black, x1, y1, 15, 10)
            End If

            If PictureBox2.BackColor = Color.Black Then
                e.Graphics.FillRectangle(Brushes.Black, x2, y1, 15, 10)
            End If

            If PictureBox3.BackColor = Color.Black Then
                e.Graphics.FillRectangle(Brushes.Black, x3, y1, 15, 10)
            End If

         end sub   

     
    sexta-feira, 14 de outubro de 2016 01:53
  • Bom dia Durval Teixeira,

    Você teria alguma imagem exemplificando o que precisa?

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 17 de outubro de 2016 12:40
    Moderador
  • Olá,

    O Durval entrou em contato comigo por e-mail e, depois de entender o que ele estava querendo fazer, eu sugeri que ele alterasse o código dele assim:

    Using font = New Font("Times New Roman", 14)
                Using brush = New SolidBrush(Color.Black)
                    If PictureBox1.BackColor = Color.Black Then
                        e.Graphics.FillRectangle(Brushes.Black, x1, y1, 15, 10)
                        e.Graphics.DrawString(TextBox1.Text, font, brush, New RectangleF(x1 + 17, y1, printDocument.DefaultPageSettings.PrintableArea.Width, printDocument.DefaultPageSettings.PrintableArea.Height))
                    End If
    
                    If PictureBox2.BackColor = Color.Black Then
                        e.Graphics.FillRectangle(Brushes.Black, x2, y1, 15, 10)
                        e.Graphics.DrawString(TextBox1.Text, font, brush, New RectangleF(x2 + 17, y1, printDocument.DefaultPageSettings.PrintableArea.Width, printDocument.DefaultPageSettings.PrintableArea.Height))
                    End If
    
                    If PictureBox3.BackColor = Color.Black Then
                        e.Graphics.FillRectangle(Brushes.Blue, x3, y1, 15, 10)
                    End If
                End Using
            End Using

    Ainda estou esperando a resposta dele, mas, acredito que tenha resolvido a sua necessidade..


    André Alves de Lima
    Microsoft MVP - Client App Dev
    Visite o meu site: http://www.andrealveslima.com.br
    Me siga no Twitter: @andrealveslima

    segunda-feira, 17 de outubro de 2016 14:09
    Moderador
  • Boa tarde,

    Devido a falta de interação do autor dessa pergunta,

    essa thread está sendo fechada. Caso o problema ainda

    esteja ocorrendo, favor abrir uma nova thread.

    Atenciosamente,


    Robson William Silva

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 17 de outubro de 2016 17:02
    Moderador