CALC: Speichern unter Rechnungs-Nr. & Name

[chgnepf]

Liebe Spezialisten

Für meinen Schwiegervater versuche ich derzeit eine Rechnungsvorlage zu erstellen. Über einen Druck soll mittels Makro das Dokument gespeichert werden unter dem Namen gemäss Zelle "F2". Gleichzeitig sollte ein Druck ausgelöst werden. Dies funktionierte, solange ich das Dokument erstellte. Sobald ich dieses als Vorlage speichere und daraus ein neues Dokument erstelle, kommt mit der Markoausführung eine Fehlermeldung. Sobald ich das aus der Vorlage erstellte "Unbenannt1" unter einem x-beliebigen Name speichere, kann ich das Makro ausführen und es funktioniert. Ich bin leider ein absoluter Neuling und hoffe auf Eure Unterstützung (auch falls ich hier mein Anfänger-Anliegen falsch platziere).
Anbei das Makro, welches ich bereits in diesem Forum gefunden habe:

=> die Fehlermeldung "Der Pfand / existiert nicht bzw. Es ist eine Exeption aufgetreten Type: com.sun.star.task.ErrorCodelOExeption Message: ." erscheint. Die Markierung der Fehlermeldung steht vor "odoc.storeAsURL(sOutputUrl,array)"

Code: Alles auswählen

REM  *****  BASIC  *****Sub Main

odoc = thisComponent
sFolderUrl = replace(thiscomponent.url,thiscomponent.title,"")
osheet = odoc.currentcontroller.activesheet
ocell = osheet.getcellrangebyname("F2")
sFileName = ocell.string & ".ods"
sOutputUrl = converttourl(sFolderUrl & sFileName)
dim array()
odoc.storeAsURL(sOutputUrl,array)
dim printProp(1) as new com.sun.star.beans.PropertyValue
printProp(0).name = "Wait"
printProp(0).Value = true
printProp(1).name = "CopyCount"
printProp(1).Value = 1
odoc.print(printProp())

End Sub

Vielen herzlichen Dank für Eure wertvolle Hilfe. Hoffe, dies ist einfach lösbar (für mich jedoch zur Zeit unüberwindbar....).



Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst; CODE tags gesetzt

[Karolus]

Hallo
Ein aus einer Vorlage erzeugtes Dokument 'Unbenannt1'hat noch keine Url - woher auch?
Du soltest einen fixen (Ordner)-Pfad nehmen.

Karo

[chgnepf]

Vielen Dank für die Antwort. Das klingt logisch. Ich bin jedoch ein absoluter Anfänger - bei welchen Zeilen und in welcher Form muss ich den Pfad eingeben? Danke für die Unterstützung!

[Stephan]

z.B.:

ersetze:

Code: Alles auswählen

sFolderUrl = replace(thiscomponent.url,thiscomponent.title,"")

durch:

Code: Alles auswählen

sFolderUrl = "C:\Users\abc\Desktop\"

Gruß
Stephan

[chgnepf]

VIELEN DANK Stephan! Du bist mein Held des Tages

Meine Rechnungs-Vorlage ist nun fertig und funktioniert einwandfrei. Meine Schwiegereltern werden glücklich sein. Und ich könnte - nachdem ich mich diese Woche erstmals mit der Thematik Makro etc. befasst habe - süchtig werden....

Super so ein Forum. Dank an Alle.

Gruss

Christian