Seite 1 von 1

Anfänger sucht Hilfe

Verfasst: Do 13. Dez 2012, 08:59
von Maltan
Habe ein Eingabeformular aus dem ich eine Vorlagendatei (.ots) öffnen kann. In dieser Datei sollen dann die eben im Formular eingegebenen Daten beim Öffen automatisch aktualisiert werden. Geht das per Makro und wie?

Re: Anfänger sucht Hilfe

Verfasst: Do 13. Dez 2012, 15:28
von Pit Zyclade
Doch nicht in der Vorlagendatei?! Sondern im Eingabeformular selbst! (Das fußt doch auf einer Abfrage oder?!)
Dann kannst Du das Formular mit re. Maustaste im Bearbeitungsmodus öffnen... und editieren.

Re: Anfänger sucht Hilfe

Verfasst: Do 13. Dez 2012, 18:58
von F3K Total
Hallo,
ja geht, hier findest Du eine Lösung mit der Serienbrieffunktion Mailmerge und ein bisschen tiefer von DPunch eine Lösung mit Platzhaltern.
Funktionieren beide.

Gruß R

Re: Anfänger sucht Hilfe

Verfasst: Fr 14. Dez 2012, 22:55
von Maltan
Zunächst mal Danke für die Antworten.

Meine Anforderungen habe ich nicht richtig beschrieben.
Über das Formular gebe ich Daten ein bzw. ändere diese. Analog einer Abfrage sollen diese dann nach calc in das erste Tabellenblatt einer bestehenden calc Datei geschrieben werden. Das habe ich bisher mit Vorlagedatei ( .ots) und "Daten aktualisieren" gelöst. Das will ich aber per Makro automatisieren am besten bis zum Ausdruck von Tabellenblatt 2. In diesem habe ich bereits per calc Formeln einen aufbereiteten Ausdruck erstellt, den ich zum Druck von Dienstplänen brauche.


Folgender Beitrag von D Punc hat mich schon in die Richtung gebracht weiter gebracht;
http://de.openoffice.info/viewtopic.php?f=18&t=45526
Hierbei wird aber nur gespeichert

Re: Anfänger sucht Hilfe

Verfasst: So 16. Dez 2012, 13:18
von F3K Total
Hi,
hier ein kleines Druckmakro, das Tabelle2 auf den Standarddrucker schickt.

Code: Alles auswählen

sub S_tabelle2_drucken
    odoc = thiscomponent
    osheet = odoc.sheets.getbyname("Tabelle2")
    oController = odoc.currentcontroller
    oController.ActiveSheet = osheet
    dim printProps() as new com.sun.star.beans.PropertyValue
    thiscomponent.print(printProps())
end sub
Gruß R