Jump to content

Imprimir List Box


Mica
 Share

Recommended Posts

Mais uma vez aqui estou eu ^^

Tenho uma dúvida muito simples para vocês ehehe

Imprimir as minhas duas ListBox, já encontrei tanto código na web que já me perdi, e metade deles, nem sabia explicar o porque daquilo existir, então queria algo fácil até mesmo de explicar :b

Link to comment
Share on other sites

1. Adiciona um PrintPreviewDialog e um PrintDocument;

2. Nas propriedades do PrintPreviewDialog, na propriedade "Document", selecciona o PrintDocument;

3. Adiciona um botão;

4. Adiciona uma listbox;

5. No evento PrintDocument, colocas:

 
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        ' 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.Left
        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
End Sub

No botão que adicionaste, só tens de por:

PrintPreviewDialog1.ShowDialog()

Talvez crie um artigo na wikiP@P com esta informação  ? 🙂

Obs: Não te esqueças de dar como resolvido o tópico.

Link to comment
Share on other sites

Muito bom :b Para uma Listbox está a funcionar 🙂 Mas agora eu queria que ele imprimisse as duas :s

Ao genero...

Bolachas      0,50

Bolos            0,80

Ele agora faz a Listbox1 a dos nomes, mas eu queria que fizesse as duas :b

Obrigado 😛

Link to comment
Share on other sites

Fiz me entender mal, eu sei que posso voltar a repetir o codigo que aparece, mas por exemplo

Eu mudei aqui para right Coordenada1 = e.MarginBounds.Right para aparecer

Bolachas                                                                                                                              0,50

Bolos                                                                                                                                    0,80

Onde eu quero chegar é

Bolachas      0,50

Bolos            0,80

Mas não sei como faze-lo ou o que alterar...

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.