Ferramentas de Usuário

Ferramentas de Site


dev_net:vb.net:imprimir_listbox

Imprimir Ficheiros da Listbox

São bastantes as vezes que colocamos informação na listbox, o exemplo mais comum será a listagem dos produtos e o preço dos mesmos. Portanto, é nos útil por vezes fazer uma factura ou um recibo, algo muito usual hoje em dia.

Mãos à obra!

Controlo(s) Necessário(s)

  1. PrintPreviewDialog
  2. PrintDocument
  3. Listbox
  4. Button

Passo(s) a seguir

Devemos, antes de começarmos a programar, de efectuar umas alterações nas propriedades do PrintPreviewDialog, mais propriamente na propriedade Document, onde devemos de seleccionar o controlo PrintDocument.

Código(s) necessário(s)

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

Por fim, só precisamos de adicionar a seguinte linha de código no button:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintPreviewDialog1.ShowDialog()
End Sub

Artigo escrito por bioshock

dev_net/vb.net/imprimir_listbox.txt · Última modificação em: 2018/05/14 21:37 (edição externa)