OpenOffice.info

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

Folgender Code könnte helfen:

[code]
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
[/code]


gruß
Charly

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