e.Graphics.PageUnit = GraphicsUnit.Inch
            Dim stringSize As New SizeF
            Dim strBez As String = "TestString"
            stringSize = e.Graphics.MeasureString(strBez, schriftA12R, CDbl( _
              e.MarginBounds.Width))
            Dim dlbStringBreiteZoll100 As Double = stringSize.Width * 100 'Da 
            ' PageUnit Inch ist!!
            Dim dblDruckBreiteZoll100 As Double = (CDbl(e.MarginBounds.Width)) _
              'Verwende Seitenbreite - kommt in 1/100 Zoll daher
            Select Case dlbStringBreiteZoll100
                Case Is > dblDruckBreiteZoll100
                    Do
                        strBez = strBez.Remove(strBez.Length - 1, 1)
                        stringSize = e.Graphics.MeasureString(strBez, _
                          schriftA12R, CInt(e.MarginBounds.Width))
                        dlbStringBreiteZoll100 = stringSize.Width * 100
                    Loop While dlbStringBreiteZoll100 > dblDruckBreiteZoll100
            End Select
            e.Graphics.PageUnit = GraphicsUnit.Display
            g.DrawString(strBez, schriftA12R, Brushes.Black, rec, Ausrichtung)