Printer class for VB.NET

[cicatrix]

Remember the good old times of VB6 where you could simply call

Printer.Print(text)

and this was all you needed in order to print plain text on the default printer.

Well, we can forget about it in VS.Net. I like VS, but sometimes you don't have to print anything but plain text.

So, here is a small class I wrote which does exactly that - prints plain text on the default printer. It automatically measures the text to fit on your page wraps it and spans over several pages if needed.
You can add more properties to it to set margins, paper orientation if you want, but it will lose its simple charm so I leave it as it is.

I've built this class into My namespace so you only need to call

My.Printer.Print(text)

in order to print something.

Namespace My
    ''' <summary>
    ''' Represents the lost VB6 functionality of a Printer object
    ''' </summary>
    ''' <remarks>Usage: My.Printer.Print(text)</remarks>
    Public Class Printer
        Private Shared Lines As New Queue(Of String)
        Private Shared _myfont As Font
        Private Shared prn As Printing.PrintDocument
 
        Shared Sub New()
            _myfont = New Font(SystemFonts.DefaultFont.FontFamily, 0.16, FontStyle.Regular, GraphicsUnit.Inch)
            prn = New Printing.PrintDocument
            AddHandler prn.PrintPage, AddressOf PrintPageHandler
        End Sub
 
        Public Shared Sub Print(ByVal text As String)
            Dim linesarray() = text.Split(New String() {Environment.NewLine}, StringSplitOptions.None)
 
            For Each line In linesarray
                Lines.Enqueue(line)
            Next
            prn.Print()
        End Sub
 
        Private Shared Sub PrintPageHandler(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
            Dim sf As New StringFormat()
            Dim vpos As Single = e.PageSettings.HardMarginY
 
            Do While Lines.Count > 0
                Dim line As String = Lines.Dequeue
                Dim sz As SizeF = e.Graphics.MeasureString(line, _myfont, e.PageSettings.Bounds.Size, sf)
 
                Dim rct As New RectangleF( _
                    e.PageSettings.HardMarginX, vpos, _
                    e.PageBounds.Width - e.PageSettings.HardMarginX * 2, _
                    e.PageBounds.Height - e.PageSettings.HardMarginY * 2)
 
                e.Graphics.DrawString(line, _myfont, Brushes.Black, rct)
                vpos += sz.Height
                If vpos > e.PageSettings.Bounds.Height - e.PageSettings.HardMarginY * 2 Then
                    e.HasMorePages = True
                    Exit Sub
                End If
            Loop
        End Sub
    End Class
End Namespace

Any feedback on this will be greatly appreciated.