Ok, I have found the problem.  Apparently Microsoft has a bug in their e.Graphics.MeasureString function.  To remidy this re-organize the primary if block like this:

If Asc(smallArray(0, x).Chars(0)) < 30 Then ' make sure to dispose of odd char's in the array

' See if any characters will fit.

ElseIf characters_fitted > 0 And xmin < (e.MarginBounds.Right - 5) Then

Notice that I switched the if and elseif lines, that is because I was occasionally printing out a graphical representation for the char(0).

Another update, I have perfected the variable character spacing problem when the font size and type changed.  Add the following line somewhere above The 'Static i As Integer' line:

' Prepare the fixed spacing for each character
Dim fixedSpace As SizeF = e.Graphics.MeasureString("W", the_font)

Then replace the following line:
' Increase the location where we can start.
xmin += CInt(text_size.Width) - 4

with:
' Increase the location where we can start.
xmin += CInt(text_size.Width) - (fixedSpace.Width * 0.25)

     Jul 13  

Sometimes this is me

Hi Jereme

Thanks for this nice piece of work!

I have tried to get it to work in ASP.NET 1.1 (vb) but get a run time error "No printers installed."

I do have a deault printer but it is a network printer and not on LPT1.

Any ideas?

Many Thanks

Howard Rybko

       ' Create object, passing in text
        Dim MyPrintObject As New TextPrint("<B>this will be bold</B>" + vbCrLf + "<ST=400>this will start at 400 pixels", "MyPrinterName")

Also modify the printing class itself to accept two parameters:

' New constructor
Public Sub New(ByVal Text As String, ByVal pName As String)
  ' Sets the file stream
  MyBase.New()
  varStart = 0
  strText = Text
  MyBase.PrinterSettings.PrinterName = pName ' This is the key line for setting the printer
  MySplitLine = strText.Split(vbCrLf)
End Sub

I too use exclusively network printers not local LPT1 ports.

Hi alzdba,

  I have never tried taking a screen shot in .net.  Here is a link on how to do it but I does appear that you will need to use API functions.

http://www.developerfusion.co.uk/show/4630/