ich hatte mich vor einigen Jahren hier angemeldet und eure Hilfe ersucht bei der Erstellung einer größeren Calc-Datei mit mehreren Makros sowie vielen vielen Formeln und Funktionen.
Hat auch super geklappt und ich bin euch noch Dankbar für die Hilfe. Meine damalige Programmversion bei der Erstellung der Datei war die 3.2.
Nun kam irgendwann 3.3 heraus und ich lud diese mir sofort runter.
Als ich nun mit meiner Datei arbeiten wollte stellte ich fest, dass komplett alle Objekte (Formularfelder, Optionsfelder usw.) nicht mehr angezeigt werden und erst nach dem drüber "hovern" sichtbar werden.
Hab das erstmal ignoriert und ein downgrade auf 3.2 wieder durchgeführt und konnte so weiter alles benutzen.
Nun ist inzwischen die Version 4.0.1 erhältlich und ich wagte einen neuen Versuch.
Neben dem immer noch vorhandenen Fehler mit den Objekten kam noch etwas hinzu.
Als ich dann drucken wollte, über ein Makro, bringt er mir eine Fehlermeldung. "Es sind keine Seiten für den Druck verfügbar. Prüfen Sie ihr Dokument auf druck relevante Inhalte."
Das dazugehörige Makro:
Code: Alles auswählen
sub druck
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$O$52"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1:$N$51"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Copies"
args3(0).Value = 1
args3(1).Name = "Collate"
args3(1).Value = true
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args3())
end sub
Hab auch versucht darüber hier im Forum etwas zu finden, hab ich aber nicht.
Muss ich das Dokument, bzw. Objekte in 4.0.1 neu erstellen oder gibt es eine Möglichkeit das irgendwie zu umgehen?
Vielen Dank im Voraus
mfg dcssd