PrintDocument and Wrapping

[Nathan Carroll]

In the small test class below I have roughed out a wrapping of the string
using drawstring and measurestring. Note that without the to Math.Ceiling
uses that the drawstring still produces ellipsis. Is there anything I'm
missing here? I attempted to use a class from Duncan Mackenzie which seemed
to be doing the same thing as below but wrapping did not work. the text was
jumbled onto one line. Duncan changed the units to inches should I do the
same?

Public Class TestPrintDocume nt
Inherits System.Drawing. Printing.PrintD ocument
Protected Overrides Sub OnPrintPage(ByV al e As
System.Drawing. Printing.PrintP ageEventArgs)
Dim h As Integer = 50
Dim w As Integer = 100
Dim rect As New RectangleF(50, 50, w, h)
Dim textof As String = "test the wrap of a string for print. does it wrap?"
Dim tfont As New Font("Arial", 10)
Dim sf As New StringFormat(St ringFormatFlags .LineLimit)
Dim tsize As New SizeF(e.Graphic s.MeasureString (textof, tfont))
Dim ratio As Single = Math.Ceiling(ts ize.Width / w)
If ratio > 1 Then
rect.Height = (ratio) * Math.Ceiling(ts ize.Height)
End If
sf.Alignment = StringAlignment .Near
sf.Trimming = StringTrimming. EllipsisCharact er
Dim i As Integer
For i = 0 To 2
e.Graphics.Draw String(textof, tfont, Brushes.Black, rect, sf)
rect.Y += rect.Height
Next
End Sub

End Class