Private Sub pd_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        e.HasMorePages = False
        e.PageSettings.Landscape = True
 
        Dim Schriftart As Font = Me.Font
        Dim Druckcolums As String = lvwTiere.Columns.Item(0).Text
        Dim Druckitems As String = lvwTiere.Items(0).SubItems(0).Text
 
        With e.Graphics
 
            ' Colum drucken
            Druckcolums = lvwTiere.Columns.Item(0).Text
            .DrawString(Druckcolums, Schriftart, Brushes.Black, 30, 80)
 
            With lvwTiere.Items
 
                Dim rect1Spalte As New RectangleF(30.0F, 80.0F, 0.0F, 0.0F)
 
                ' Rechteck versetzten
                rect1Spalte.Y += e.Graphics.MeasureString(Druckitems, _
                  Me.Font).Height
 
                For i1 As Integer = 0 To .Count - 1
 
                    ' Item drucken
                    Druckitems = .Item(i1).Text
 
                    ' Höhe messen damit die nächste linie genau unterhalb 
                    ' anfängt
                    Dim size As SizeF = e.Graphics.MeasureString(Druckitems, _
                      Me.Font)
 
                    ' Rechteck anpassen
                    rect1Spalte.Width = size.Width
 
                    ' Strin drucken
                    e.Graphics.DrawString(Druckitems, Schriftart, _
                      Brushes.Black, rect1Spalte)
 
                    ' Rechteck anpassen
                    rect1Spalte.Y += size.Height
 
                Next
 
            End With
        End With
 
    End Sub

fg viperbone