OpenOffice.info

Sub Druckbereich_setzen()
  tableindex = 0 'erste Tabelle
  zellname = "A1"
  
  With ThisComponent.Sheets(tableindex)
	  If .getCellRangeByName(zellname).Value = 1 Then
			Dim oRanges(0) As New com.sun.star.table.CellRangeAddress  'Zellbereiche
			oRanges(0).Sheet = tableindex 
			oRanges(0).StartColumn = 0 : oRanges(0).StartRow = 1 'A2
			oRanges(0).EndColumn = 0   : oRanges(0).EndRow = 9   'A10
			.setPrintAreas(oRanges())
	  End If
  End With
End Sub

z.B. als Makro:

[code]Sub Druckbereich_setzen()
tableindex = 0 'erste Tabelle
zellname = "A1"

With ThisComponent.Sheets(tableindex)
If .getCellRangeByName(zellname).Value = 1 Then
Dim oRanges(0) As New com.sun.star.table.CellRangeAddress 'Zellbereiche
oRanges(0).Sheet = tableindex
oRanges(0).StartColumn = 0 : oRanges(0).StartRow = 1 'A2
oRanges(0).EndColumn = 0 : oRanges(0).EndRow = 9 'A10
.setPrintAreas(oRanges())
End If
End With
End Sub[/code]



Gruß
Stephan

Hallo

Ich bin neu hier und hab auf meiner Frage weder in google noch hier wirklich was passendes gefunden und hoffe ihr könnt mir helfen.

Ich bin auf der Suche nach einer Funktion oder ähnliches, der einen bestimmten Druckbereich bei einem gewissen Wert festlegt Beispiel:

wenn = A1 "1", dann = Druckbereich A2:A10


Ist sowas möglich?

Gruß
Euromichel