Automatisierter Druckbereich

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Euromichel
Beiträge: 1
Registriert: Sa, 02.10.2021 11:34

Automatisierter Druckbereich

Beitrag von Euromichel »

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
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Automatisierter Druckbereich

Beitrag von Stephan »

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
Antworten