Makro Druckbereich, Wiederholungszeile integrieren?

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Makro Druckbereich, Wiederholungszeile integrieren?

Re: Makro Druckbereich, Wiederholungszeile integrieren?

von balu » Mi, 24.11.2010 11:54

Hallo Charly,

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


Gruß
balu

Re: Makro Druckbereich, Wiederholungszeile integrieren?

von Charly » Di, 23.11.2010 16:22

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

Makro Druckbereich, Wiederholungszeile integrieren?

von balu » Di, 23.11.2010 11:41

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 :D.
Für eure Bemühungen bedanke ich mich schon mal im voraus.


Gruß
balu

Nach oben