von Stephan » Do, 22.09.2011 12:03
Prinzipiell sollte das mit einer benutzerdefinierten Funktion möglich sein:
Code: Alles auswählen
Function Druckbereich(Blattname, StartSpalte, StartZeile, EndSpalte, EndZeile)
Dim Druckbereich(0) as new com.sun.star.table.CellRangeAddress
'Druckbereich(0).Sheet = blattindex
Druckbereich(0).StartColumn = StartSpalte
Druckbereich(0).StartRow = StartZeile
Druckbereich(0).EndColumn = EndSpalte
Druckbereich(0).EndRow = EndZeile
With ThisComponent.Sheets().getByName(Blattname)
.setPrintareas(Druckbereich())
End With
End Function
Diese Funktion wäre im Tabellenblatt mittels beispielsweise:
=DRUCKBEREICH("Tabelle3";0;0;2;2)
Wobei die numerischen Angaben zu Zeilen und Spalten jeweils bei 0 beginnen, d.h. A1 entspricht (0;0) und der Bereich "A1:B10" entspricht (0;0;1;9)
Gruß
Stephan
Prinzipiell sollte das mit einer benutzerdefinierten Funktion möglich sein:
[code]Function Druckbereich(Blattname, StartSpalte, StartZeile, EndSpalte, EndZeile)
Dim Druckbereich(0) as new com.sun.star.table.CellRangeAddress
'Druckbereich(0).Sheet = blattindex
Druckbereich(0).StartColumn = StartSpalte
Druckbereich(0).StartRow = StartZeile
Druckbereich(0).EndColumn = EndSpalte
Druckbereich(0).EndRow = EndZeile
With ThisComponent.Sheets().getByName(Blattname)
.setPrintareas(Druckbereich())
End With
End Function[/code]
Diese Funktion wäre im Tabellenblatt mittels beispielsweise:
=DRUCKBEREICH("Tabelle3";0;0;2;2)
Wobei die numerischen Angaben zu Zeilen und Spalten jeweils bei 0 beginnen, d.h. A1 entspricht (0;0) und der Bereich "A1:B10" entspricht (0;0;1;9)
Gruß
Stephan