Print Draw Rectangle

[B-Dog]

I'm using this class here
http://msdn.microsoft.com/library/de...ntwinforms.asp
to build a tabular print report and it works fine but when I try and add a
rectangle to the page they brush stroke is huge, about .5 inch wide? The
document is setup in inches but I don't know why these are showing up like
this, nevers seen this happen. Here is the code I'm using below but there
must be something that is being set in his code that is affecting this but I
can't find it. Thanks

Dim message As String = System.Environment.UserName

Dim messagefont As New Font("arial", 12, System.Drawing.GraphicsUnit.Point)

g.DrawString(message, messagefont, Brushes.Black, 1, 1)

Dim rect As New RectangleF(3, 3, 2, 2)

g.DrawRectangle(Pens.Black, Rectangle.Truncate(rect))