Dim text As String = "the line to be printed"
        Dim pos As New Point(276, 75)
 
        Using f As New Font("Arial", 14, FontStyle.Bold)
            Dim ts As Size = e.Graphics.MeasureString(text, f).ToSize()
 
            Dim rec As New Rectangle(pos, ts) ' Rechteck besteht aus 
            ' Anfangspunkt (linke obere Ecke) und Größe (Breite und Höhe)
 
            'e.Graphics.DrawRectangle(Pens.Red, rec) ' Rechteck zeichnen zur _
              Prüfung
 
            e.Graphics.RotateTransform(180)
            e.Graphics.TranslateTransform(-(rec.Width + 2 * rec.X), -( _
              rec.Height + 2 * rec.Y))
            e.Graphics.DrawString(text, f, Brushes.Black, rec.X, rec.Y)
        End Using

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist