Seite 1 von 1
Calc Makro Speichern und Zellennamen und 2x Drucken
Verfasst: So, 05.02.2012 10:22
von nockel
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?
Re: Calc Makro Speichern und Zellennamen und 2x Drucken
Verfasst: So, 05.02.2012 12:32
von F3K Total
Ja, gibt es, seid jetzt:
Code: Alles auswählen
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
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
in
Gruß R
Re: Calc Makro Speichern und Zellennamen und 2x Drucken
Verfasst: So, 05.02.2012 18:15
von nockel
funktioniert.
Supi Danke.
Re: Calc Makro Speichern und Zellennamen und 2x Drucken
Verfasst: Do, 08.03.2012 18:01
von F3K Total
Hi,
in dem Du hinter die Zeile:
diese beiden Zeilen einfügst:
Code: Alles auswählen
oprintsheet = odoc.sheets.getbyname("Tabelle2")
odoc.currentcontroller.activesheet = oprintsheet
Gruß R