Dim recReBenTempPos As New Rectangle(StartX, StartY, (e.MarginBounds.Width) - _
  35,24) 'hier soll der String gedruckt werden - mein erster Fehler? Width = 
' pixel oder Zoll???
Dim strBez As String = "1234567890-Test-1234567890" 'mein Beispielstring
Dim dblStringBreitePX As Double = TextRenderer.MeasureText(strBez, _
  schriftA12R).Width 'in PIXEL !!!!
Dim dblStringBreiteZoll72 As Double = fnConvertPixelTo72Zoll( _
dblStringBreitePX,e.PageSettings.PrinterResolution.X) 'IN 1/72 Zoll !!!!
Dim dblDruckBreiteZoll100 As Double = (CDbl(e.MarginBounds.Width) - 35) 'IN 
' 1/100 Zoll !!!!
Dim dblDruckBreiteZoll72 As Double = (dblDruckBreiteZoll100 / 100) * 72 'IN 
' 1/72 ZOLL !!!!
Select Case dblStringBreiteZoll72
     Case Is > dblDruckBreiteZoll72
       Do
        strBez = strBez.Remove(strBez.Length - 1, 1)
        dblStringBreiteZoll72 = fnConvertPixelTo72Zoll(CDbl( _
          TextRenderer.MeasureText(strBez, _
          schriftA12R).Width),e.PageSettings.PrinterResolution.X)
        Loop While dblStringBreiteZoll72 > dblDruckBreiteZoll72
End Select
g.DrawString(strBez, schriftA12R, Brushes.Black, recReBenTempPos, _
  stfAusrichtungLinksPos)
 
Private Function fnConvertPixelTo72Zoll(ByVal dblPixel As Double, ByVal _
  intResolution As Integer) As Double
        Try
            fnConvertPixelTo72Zoll = (dblPixel / intResolution) * 72
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Function