Dokument mit automatisch erzeugtem Namen speichern

[Skydive]

Dokument mit automatisch erzeugtem Namen speichern

Hallo an alle fleißigen Helfer Forum !!

Ich möchte meine Rechnungsvorlage mal wieder verbessern und ergänzen.
Vieles habe ich ja schon mit eurer und vor allem mit balu`s Hilfe und einiges dann auch selbst hin bekommen.
Doch nun brauche ich mal wieder Hilfe.
Ich hänge meine bisherige Tabelle zur Verdeutlichung als Anhang mit an.

Ich möchte über die Schaltfläche A4 automatisch einen Speichernamen erzeugen, der sich aus Zelle AQ1 (in folgendem Zahlenformat zB. : 2009 19 03) + Tabelle Adressen/H3 ( Klein ) zusammensetzt. Gesamt sollte es dann so aussehen „2009 19 03 Klein“
Das ganze soll dann an einem vordefinierten Ort zB. ..../Büro/Firma09/Rechnungen/ gespeichert werden.


Wenn möglich möchte ich über eine 2. Schaltfläche ?? A7 eine Belegkopie als PDF Datei auf einer anderen Platte speichern. Der Name soll der gleiche wie oben sein.

Ich hoffe ich habe mich verständlich ausgedrückt und ihr habt eine Idee für mein Problem.

Auf jeden Fall schon mal vielen Dank im voraus und einen guten Start in die Woche !!

[komma4]

Der Befehl zum Speichern lautet:

Code: Alles auswählen

ThisComponent.storeAsURL( adresse, optionen ) 

adresse muss eine URL-Notation haben, die Du mit ConvertToURL() erzeugen kannst.

Code: Alles auswählen

pfadtrenner = getPathSeparator()
meinPfad = "/home/user/daten"   ' Linux
meinPfad = "d:\daten"   ' Windows

' Wert aus Tabelle Adressen, H3
meinDateiname = ThisComponent.getSheets().getByName( "Adressen").getCellRangeByName( "H3" ).getString()

adresse = ConvertToURL( meinPfad & pfadtrenner & meinDateiname )

optionen kann LEER sein, wenn Du nicht überschreiben willst, etc.

Als Anweisung also:

Code: Alles auswählen

ThisComponent.storeAsURL( adresse, Array() ) 

Vielleicht finde ich nach der Mittagspause Zeit nach dem PDF-Export zu schauen.

Kannst Du damit schonmal probieren...?


Korrektur im Code: "mein Pfad" => meinPfad

[keksi1970]

Hi, als PDF speichern geht wohl nur mit storeTOurl

Code: Alles auswählen

Dim myProps(0) as New com.sun.star.beans.PropertyValue

myProps(0).Name="FilterName"
myProps(0).Value = "writer_pdf_Export"

adresse = ConvertToURL( "mein pfad" & pfadtrenner & meinDateiname ).

ThisComponent.storetoUrl(adresse ,myProps())

LG
Andreas

(einfach geklaut und hierreinkopiert von http://www.dannenhoefer.de/faqstarbasic ... l#Zweig141

[Skydive]

Vielen Dank Ihr beiden. werde mal Versuchen das für umzusetzen.
Wird zwar ein keines bisschen dauern ( Immer diese Anfänger )
aber ich will ja auch ein bisschen was dabei lernen.
Wenn ich es soweit fertig in meine Vorlage eingebaut habe, setze ich sie hier nochmal rein, vielleicht kann jemand anderes sowas ja auch gebrauchen

Liebe Grüße
Jens