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
Automatisierter Druckbereich
Moderator: Moderatoren
Re: Automatisierter Druckbereich
z.B. als Makro:
Gruß
Stephan
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