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!
Controlos Necessários
- PrintPreviewDialog
- PrintDocument
- Listbox
- Button
Passos 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 necessário
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