Print List Box

[Stick]

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        prnList.Print()
    End Sub

    Private Sub prnList_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles prnList.PrintPage
        Dim intlistindex As Integer
        Dim strprintline As String
        Dim fntprintfont As New Font("Arial", 12)
        Dim snglineheight As Single = fntprintfont.GetHeight + 2
        Dim sngprintx As Single
        Dim sngprinty As Single
        sngprintx = e.MarginBounds.Left
        sngprinty = e.MarginBounds.Top

        For intlistindex = 0 To lstTotal.Items.Count - 1
            strprintline = CStr(lstTotal.Items(intlistindex))
            e.Graphics.DrawString(strprintline, fntprintfont, Brushes.Black, sngprintx, sngprinty)
            sngprinty += snglineheight

        Next
    End Sub