OpenOffice.info

Verfasst: **Sa, 02.10.2021 11:43**

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

Verfasst: **Sa, 02.10.2021 12:15**

z.B. als Makro:

Code: Alles auswählen

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

Gruß
Stephan

OpenOffice.info

Automatisierter Druckbereich

Automatisierter Druckbereich

Re: Automatisierter Druckbereich