OpenOffice Makro funktioniert nicht ganz in LibreOffice

Icarus18 · October 30, 2025, 1:26pm

Ich bin von OpenOffice zu LibreOffice umgestiegen. Nun habe ich Probleme mit dem folgenden Makro bekommen. Es wird die letzte Tabelle immer gedruckt, egal was für ein Wert in A6.

Sub DRUCKEN

Dim PrintProp(0) as new com.sun.star.beans.PropertyValue
PrintProp(0).Name = "Wait"
PrintProp(0).Value = True

With ThisComponent.Sheets()
  For i = 0 To .Count - 1
    If .getByIndex(i).getCellRangeByName("A6").Value > 0 Then
      ThisComponent.CurrentController.setActiveSheet(.getByIndex(i))
      ThisComponent.Print(PrintProp())
    End If
  Next i
End With

Call WAHL

End sub