Dim pw As Integer = e.PageBounds.Width
        Dim ph As Integer = e.PageBounds.Height
        Dim ls As Integer = 21  ' Line spacing
        Dim th As Integer = ls * lines.Count ' Rectangle height
        Dim tw As Integer = 180  ' Rectangle width
 
        Dim pos As New Point(-276 - tw, -75 - ls) ' Start position of rectangle 
        ' for text im "virtuellen Bereich" oben links
 
        Using f As New Font("Arial", 14, FontStyle.Bold),
            sf As New StringFormat(StringFormatFlags.DirectionRightToLeft)
            sf.Alignment = StringAlignment.Far
            e.Graphics.RotateTransform(180)
            Dim ln As Integer
            For ln = lines.Count - 1 To 0 Step -1
                e.Graphics.DrawString(lines(ln), f, Brushes.Black, pos, sf)
                pos.Offset(0, -ls)
            Next
        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