Seitenumbruch markieren

Bild

Betrifft: Seitenumbruch markieren
von: Thorsten
Geschrieben am: 03.11.2003 16:29:36

Hallo und einen frohen Montag !

Ich versuche seit Tagen die Horizontalen Seitenumbrüche mit einenr Linie zu markieren .
Zweck der Übung ist es in der Druckansicht einer durchlaufenden Tabelle automatisch einen sauberen Abschluss einzubringen.

Also eine Art 2. Wiederholungszeile .
Mit VBA muss das eigentlich möglich sein (HPagebreak etc.)?!

Hat irgendjemand ein Beispiel das mir weiterhelfen könnte ??


Danke im Vorraus für die Mühen

Thorsten

Bild


Betrifft: AW: Seitenumbruch markieren
von: ChrisL
Geschrieben am: 03.11.2003 16:52:52

Hi Thorsten

Option Explicit


Sub UmbruchLinie()
Dim i As Integer
With ActiveSheet
For i = 1 To .HPageBreaks.Count
    .Rows(.HPageBreaks(i).Location.Row - 1).Borders(xlEdgeBottom).LineStyle = xlContinuous
Next i
End With
End Sub



Gruss
Chris


Bild

Beiträge aus den Excel-Beispielen zum Thema " Seitenumbruch markieren"