CALC: Speichern unter Rechnungs-Nr. & Name
Verfasst: Mi, 22.02.2012 22:18
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)"
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
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
Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst; CODE tags gesetzt
