OpenOffice.info

Hallo Charly,

Danke für die schnelle Hilfe!

Gruß, nullplan

Sub Wiederholungszeile () 

Dim Dok as object
Dim Blatt as object
Dim Bereich as object
dim CellRangeAddress as Object

Dok = ThisComponent
Blatt = Dok.Sheets(0)
Bereich = Blatt.getCellRangeByPosition(0,0,10,1)
CellRangeAddress = Bereich.getRangeAddress()

Blatt.setTitleRows(CellRangeAddress) 

end Sub

Hallo!

Folgendes Makro legt Zeile 1 und zwei als Wiederholungszeilen fest.

[code]
Sub Wiederholungszeile ()

Dim Dok as object
Dim Blatt as object
Dim Bereich as object
dim CellRangeAddress as Object

Dok = ThisComponent
Blatt = Dok.Sheets(0)
Bereich = Blatt.getCellRangeByPosition(0,0,10,1)
CellRangeAddress = Bereich.getRangeAddress()

Blatt.setTitleRows(CellRangeAddress)

end Sub
[/code]

gruß
Charly

Hallo Zusammen!

Wie kann ich Wiederholungszeilen in einer Tabelle per Makro festlegen damit sie beim Drucken auf jeder Seite gezeigt werden?

Gruß, nullplan