Ich versuche gerade ein Dokument zu erzeugen, das ich als Muster für kleine Rechnungen nutzen werde.
Das Dokument will ich dann als PDF exportieren und so auch nutzen.
Im Dokument sind zwei numerische Felder (flightPrice und lessonPrice), bei den ich ein Wert angeben kann, und ein Feld (totalPrice), das die Summe der anderen beiden Felder bekommen soll.
Eigentlich ganz einfach, ich kriege es aber nicht zum Laufen...
Das ist meine Makro:
Code: Alles auswählen
Dim oDoc, oController, oform, oView, flightPrice, lessonPrice, totalPrice as Object
Dim price as Integer
oDoc = thisComponent
oController = oDoc.getCurrentController()
oform = odoc.drawpage.forms.getbyindex(0)
flightPrice = oForm.getByName("flightPrice")
oView = oController.getControl(flightPrice)
price = oView.Model.value
lessonPrice = oForm.getByName("lessonPrice")
oView = oController.getControl(lessonPrice)
price = price + oView.Model.value
Msgbox "Preis: " + price
Ich habe dann das Dokument als PDF exportiert und geöffnet (mit Okular und Acrobat Reader, kein Unterschied) und ein Wert angegeben.
Leider wird keine MessageBox mit dem Preis angezeigt und auch kein Fehler...
Was mache ich falsch?
Danke
Luca