Makro Druckbereich, Wiederholungszeile integrieren?

[balu]

Moin moin, liebe Gemeinde.

Ich habe ein Makro welches mir einen Drukbereich anlegt. So weit, so gut. Nur finde ich bis jetzt nichts darüber wie ich eine Wiederholungszeile in das Makro integriere. Vielleicht suche ich mit den falschen Begriffen, oder aber ich finde wirklich nichts.

Hier das besagte Makro.

Code: Alles auswählen

oCalc = thiscomponent
oSheet9 = oDocument.Sheets.getByName("Tabelle2")
oZellRange = oSheet9.getCellRangeByName("$A$1:$BU$133")
oCursor = oSheet9.createCursorByRange(oZellRange)
oAdress = oCursor.RangeAddress
Dim aDruckbereich(0)
aDruckbereich(0) = oAdress
oSheet9.setPrintAreas(aDruckbereich()

Würde mich sehr darüber freuen, wenn ihr mir da weiterhelfen könnt .
Für eure Bemühungen bedanke ich mich schon mal im voraus.


Gruß
balu

[Charly]

Hallo Balu!

Probier es mit folgendem Code:

Code: Alles auswählen

Sub Wiederholungszeile()
oDocument = thiscomponent
oSheet9 = oDocument.Sheets.getByName("Tabelle2")
oZellRange = oSheet9.getCellRangeByName("$A$1:$B$2")
Bereich = oZellRange.getRangeAddress()
oSheet9.setTitleRows(Bereich)
end sub


Sub Wiederholungsspalte()
oDocument = thiscomponent
oSheet9 = oDocument.Sheets.getByName("Tabelle2")
oZellRange = oSheet9.getCellRangeByName("$A$1:$B$2")
Bereich = oZellRange.getRangeAddress()
oSheet9.setTitleColumns(Bereich)
end sub

Gruß
Charly

[balu]

Hallo Charly,

na das ist doch perfekt. Es funktioniert einwandfrei.
Ich danke dir recht Herzlich .


Gruß
balu