OpenOffice.info

VIELEN DANK Stephan! Du bist mein Held des Tages :D

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

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

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

z.B.:

ersetze:
[code]sFolderUrl = replace(thiscomponent.url,thiscomponent.title,"")[/code]

durch:
[code]sFolderUrl = "C:\Users\abc\Desktop\"[/code]


Gruß
Stephan

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!

Hallo
Ein aus einer Vorlage [u]erzeugtes[/u] Dokument '[color=#FF0000]Unbenannt1[/color]'hat noch keine Url - woher auch?
Du soltest einen fixen (Ordner)-Pfad nehmen.

Karo

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

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]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
[/code]
Vielen herzlichen Dank für Eure wertvolle Hilfe. Hoffe, dies ist einfach lösbar (für mich jedoch zur Zeit unüberwindbar....).



[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst; CODE tags gesetzt