Wiederholungszeile festlegen per Makro

[mecki_45]

Hallo zusammen,
wie kann ich dieses per Makro realisieren?
Ich wollte gerne die obersten 2 Zeilen als Wdh.-Zeile einstellen.
Zu finden ist dies unter "Format-Druckbereiche-Bearbeiten"

Dank im voraus
Alex

[Charly]

Folgender Code könnte helfen:

Code: Alles auswählen

Sub Wiederholungszeile () 

dim CellRangeAddress as New com.sun.star.table.CellRangeAddress

Document = ThisComponent
Blatt = Document.sheets(0)

CellRangeAddress.Sheet = 0
CellRangeAddress.StartColumn =  0
CellRangeAddress.StartRow = 0     Rem Beginn mit Zeile 1
CellRangeAddress.EndColumn = 0
CellRangeAddress.EndRow = 1      Rem Ende mit Zeile 2

Blatt.setTitleRows(CellRangeAddress) 

end Sub

gruß
Charly