Jump to content

Imprimir Textbox, label


Mica
 Share

Recommended Posts

' Vamos definir a estrutura da página;      
        Dim Fonte As New Font("Arial", 12, FontStyle.Regular)
        ' Coordenadas para "jogar" com a posição dos dados;
        Dim CoordenadaX, CoordenadaY As Single
        Dim CoordenadaH As Single = 30
        CoordenadaX = e.MarginBounds.Right - 500
        CoordenadaY = e.MarginBounds.Top
        ' Simples ciclo para procurar por Items na Listbox1;
        Dim ProcuraItems As String
        For Each ProcuraItems In ListBox1.Items
            e.Graphics.DrawString(ProcuraItems, Fonte, Brushes.Black, CoordenadaX, CoordenadaY)
            CoordenadaY += CoordenadaH
        Next

Boas, Bem a minha duvida é a seguinte, aqui consigo imprimir a Listbox1, agora queria talvez com base neste código imprimir um label e uma textbox ao genero

Bolachas 0,50 

Bolos      0,80

Total(label)  1,30(textbox)

Espero ter sido claro :b

Obrigado

Link to comment
Share on other sites

Rapaz, quer-me mais parecer que vens para aqui pedir que te façam o código.

Não vejo qualquer tipo de pesquisa ou dúvida em concreto, só aqui vens dizer " Como imprimo xpto " e estás à espera que te façam o trabalhinho.

Começa a usar o google 🙂

http://www.vbdotnetheaven.com/UploadFile/mgold/PrintinginVBNET04202005015906AM/PrintinginVBNET.aspx

http://www.itgalary.com/printer_friendly_posts.asp?TID=263

Link to comment
Share on other sites

Opá tens razão e que... Mas basicamente o que fiz? Foi copiar tudo o que lá estava e colar, o que aprendi? NADA... Só ctrl c ctrl v ainda tentei perceber, mas tem muita coisa que nem faço ideia o que faça e o que seja... Mas apesar de não ser nada daquilo que eu pretendo obrigado na mesma ;P eu queria implementar a label e a textbox naquele codigo que me deste...

Link to comment
Share on other sites

' Vamos definir a estrutura da página;      
        Dim Font As New Font("Arial", 12, FontStyle.Regular)
        ' Coordenadas para "jogar" com a posição dos dados;
        Dim Coordenadaa, Coordenadab As Single
        Dim Coordenadac As Single = 30
        Coordenadaa = e.MarginBounds.Left
        Coordenadab = e.MarginBounds.Top

        Dim ProcuraIte As String
        For Each ProcuraIte In Label1.Text
            e.Graphics.DrawString(ProcuraIte, Fonte, Brushes.Black, Coordenadaa, Coordenadab)
            Coordenadab += Coordenadac
        Next

Isto supostamente seria para aparecer a minha label, e aparece, mas aparece da seguinte forma

P

r

o

d

u

t

o

Bolachas    0,50

Bolos          0,80

Eu queria que ela ficasse

Produto

Bolachas    0,50

Se alguem puder ajudar...

Link to comment
Share on other sites

        For  Each ProcuraIte In Label1.Text
            e.Graphics.DrawString(ProcuraIte, Fonte, Brushes.Black, Coordenadaa, Coordenadab)
            Coordenadab += Coordenadac
        Next

Já fizes te um debug a ver a causa do problema?

mas é este for que te faz escrever a palavra dessa maneira.

For  Each ProcuraIte In Label1.Text
            e.Graphics.DrawString(ProcuraIte, Fonte, Brushes.Black, Coordenadaa, Coordenadab)

Assim por cada letra e ele escreve te uma em cada linha.

Link to comment
Share on other sites

Não sei é como faze-lo  😁

Algo como isto? :S

   ' Vamos definir a estrutura da página;      
        Dim Font As New Font("Arial", 12, FontStyle.Regular)
        ' Coordenadas para "jogar" com a posição dos dados;
        Dim Coordenadaa, Coordenadab As Single
        Dim Coordenadac As Single = 30
        Coordenadaa = e.MarginBounds.Left
        Coordenadab = e.MarginBounds.Top
        Print(Label1.Text)

dá me isto...Conversion from string "Preço" to type 'Integer' is not valid

Link to comment
Share on other sites

pmaster tão simples como isso :b Sempre a aprender com vocês, Obrigado :b

Coordenadaa = e.MarginBounds.Left + 120
        Coordenadab = e.MarginBounds.Top - 25

agora é uma questão de brincar ali com os números  😁 e isso agora é fácil :b é por tentativas ehehe :b

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.