' Header schreiben
        Do
            rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + _
              MerkerSpalte), TextHöhe)
            e.Graphics.FillRectangle(New SolidBrush(HeaderColor), rf)
            If LV.GridLines Then e.Graphics.DrawRectangle(Pens.Black, rf.X, _
              rf.Y, rf.Width, rf.Height)
            e.Graphics.DrawString(LV.Columns(OffsetSpalte + MerkerSpalte).Text, _
            LV.Font, Brushes.Black, rf, sf)
            PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
            OffsetSpalte += 1
        Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + _
          MerkerSpalte) Or OffsetSpalte + MerkerSpalte > LV.Columns.Count - 1