Text on Image Resolution

[CG3000]

I create a .PNG image ( in Macromedia Fireworks ) which has an gif in
it in the top left corner and a lot of empty canvas space to the right.

I use about 10 text boxes on a form to populate that empty space with
text.

I then print the image ( from a picture box on my form) on a UPS
Thermal Printer ( label printer)

Problem is the resolution of the text is blurry.

I tried changing the image resolution but that made it print very
small.

I dont know if I should try a differnt image type other then .png.

The PC that prints the label is running XP. The below code is what
creates the image and prints it:
Private Sub btnMakeLabel_Cl ick(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles Button1.Click
Dim imageName As String = "C:\Projects\Vi tex\VPG_Small_3 .png"
Dim i As Image = Image.FromFile( imageName)
Dim g As Graphics = Graphics.FromIm age(i)
Dim sf As StringFormat =
CType(StringFor mat.GenericTypo graphic.Clone() , StringFormat)
sf.Alignment = StringAlignment .Center
sf.LineAlignmen t = StringAlignment .Center
Dim dt As Date =
Date.Parse(Me.M onthCalendar1.S electionRange.S tart)
Dim lblMonth As Integer = dt.Month
Dim lblDay As Integer = dt.Day
'g.TextRenderin gHint =
Drawing.Text.Te xtRenderingHint .AntiAliasGridF it
g.DrawString(lb lMonth.ToString () + " " + lblDay.ToString (), New
Font("Helvetica ", 9, GraphicsUnit.Pi xel), Brushes.Black, New
RectangleF(65, 49, 50, 25), sf)
'g.DrawString(" Set # ", New Font("Helvetica ", 7,
GraphicsUnit.Po int), Brushes.Black, New RectangleF(50, 34, 50, 25), sf)
g.DrawString(Me .txtSet.Text + "", New Font("Helvetica ", 9,
GraphicsUnit.Pi xel), Brushes.Black, New RectangleF(48, 49, 50, 25), sf)
g.DrawString(Me .txtBackroll.Te xt, New Font("Helvetica ", 9,
GraphicsUnit.Pi xel), Brushes.Black, New RectangleF(38, 49, 50, 25), sf)
g.DrawString("O p: " + Me.txtOperatorI nitls.Text, New
Font("Helvetica ", 9, GraphicsUnit.Pi xel), Brushes.Black, New
RectangleF(5, 50, 50, 25), sf)
g.DrawString("C ode: " + Me.txtCode.Text , New Font("Helvetica ",
9, GraphicsUnit.Pi xel), Brushes.Black, New RectangleF(38, 2, 100, 25),
sf)
g.DrawString("S O: " + Me.txtS0.Text, New Font("Helvetica ", 9,
GraphicsUnit.Pi xel), Brushes.Black, New RectangleF(155, 1, 60, 25), sf)
g.DrawString("D esc:" + Me.txtDescript1 .Text, New
Font("Helvetica ", 9, GraphicsUnit.Pi xel), Brushes.Black, New
RectangleF(40, 12, 120, 25), sf)
g.DrawString(Me .txtDescript2.T ext, New Font("Helvetica ", 9,
GraphicsUnit.Pi xel), Brushes.Black, New RectangleF(49, 22, 120, 25),
sf)
g.DrawString("P O: " + Me.txtPurchOrd. Text, New
Font("Helvetica ", 9, GraphicsUnit.Pi xel), Brushes.Black, New
RectangleF(38, 34, 80, 25), sf)
g.DrawString("Q ty: " + Me.txtPressRepe ats.Text, New
Font("Helvetica ", 9, GraphicsUnit.Pi xel), Brushes.Black, New
RectangleF(127, 17, 90, 60), sf)
g.DrawString("R oll # 1", New Font("Helvetica ", 9,
GraphicsUnit.Pi xel), Brushes.Black, New RectangleF(107, 30, 120, 60),
sf)
g.Dispose()
Me.PictureBox1. Image = i
End Sub
Private Sub btnPrintLabels_ Click(ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles Button2.Click
Try
'If you do not specify a printer it uses the default
'Me.PrntDoc_Img .PrinterSetting s.PrinterName = "Canon
MF3110"
Me.PrntDoc_Img. DocumentName = "Vitex Label"
AddHandler PrntDoc_Img.Pri ntPage, AddressOf Me.pd_PrintPage
PrntDoc_Img.Pri nt()
Catch ex As Exception
MessageBox.Show ("An error occurred while printing", _
ex.ToString())
End Try

End Sub
' Specifies what happens when the PrintPage event is raised.
Private Sub pd_PrintPage(By Val sender As Object, ByVal ev As
System.Drawing. Printing.PrintP ageEventArgs)
' Draw a picture.
'ev.Graphics.
ev.Graphics.Dra wImage(Me.Pictu reBox1.Image, _
ev.Graphics.Vis ibleClipBounds. Location)

' Indicate that this is the last page to print.
ev.HasMorePages = False
End Sub
End Class

Anything I can do to increase the text quality.