OpenOffice.info

ocell = osheet.getcellrangebyname("A1")

oprintsheet = odoc.sheets.getbyname("Tabelle2")
odoc.currentcontroller.activesheet = oprintsheet

Hi,
in dem Du hinter die Zeile:
[code]ocell = osheet.getcellrangebyname("A1")[/code] diese beiden Zeilen einfügst:
[code]oprintsheet = odoc.sheets.getbyname("Tabelle2")
odoc.currentcontroller.activesheet = oprintsheet[/code]Gruß R

funktioniert.

Supi Danke.

Sub S_save_and_print
odoc = thisComponent
sFolderUrl = replace(thiscomponent.url,thiscomponent.title,"")
osheet = odoc.currentcontroller.activesheet
ocell = osheet.getcellrangebyname("A1")
sFileName = ocell.string & ".ods"
sOutputUrl = converttourl(sFolderUrl & sFileName)
dim array()
odoc.storeToURL(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 = 2
odoc.print(printProp())
End Sub

odoc.storeToURL(sOutputUrl,array)

odoc.storeAsURL(sOutputUrl,array)

Ja, gibt es, seid jetzt:
[code]Sub S_save_and_print
odoc = thisComponent
sFolderUrl = replace(thiscomponent.url,thiscomponent.title,"")
osheet = odoc.currentcontroller.activesheet
ocell = osheet.getcellrangebyname("A1")
sFileName = ocell.string & ".ods"
sOutputUrl = converttourl(sFolderUrl & sFileName)
dim array()
odoc.storeToURL(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 = 2
odoc.print(printProp())
End Sub[/code]
Das Makro speichert die Datei unter dem Namen, der in Zelle A1 steht, im gleichen Ordner wie das ursprüngliche Dokument ab und schickt es zum Drucker. Der Name des Ausgangsdokumentes bleibt erhalten. Willst Du das Ausgangsdokument umbenennen, ändere die Zeile
[code]odoc.storeToURL(sOutputUrl,array)[/code]
in
[code]odoc.storeAsURL(sOutputUrl,array)[/code]

Gruß R

Hallo,

habe mit Excel ein Makro welches unter einem Namen des Zelleninhalts speichert und dann das Dokument automatisch 2x druckt. Leider läuft das Makro bei OpenOffice 3.3 nicht.

Gibt es für OpenOffice ein ähnliches Makro mit den selben Funktionen?