das folgende Makro exportiert die 1. Seite der Calc-Datei als pdf und legt sie unter dem gleichen Namen (nur mit der Endung .pdf) im gleichen Ordner ab.
Code: Alles auswählen
sub PDF_export
'Zugriff auf Dokument
odoc=thiscomponent
'Setzen der Argumente für pdf-Export
Dim arg(2) as new com.sun.star.beans.PropertyValue
'Dateiname
arg(0).Name = "URL"
arg(0).Value = converttourl(Left(odoc.url, Len(odoc.url) - 3) + "pdf")
'Typ pdf
arg(1).Name = "FilterName"
arg(1).Value = "calc_pdf_Export"
'weitere Parameter als Array
dim aFilterData(2) as new com.sun.star.beans.PropertyValue
'hier: Seiten und Passwortschutz beim Öffnen
aFilterData(0).Name ="PageRange"
aFilterData(0).Value ="1"
aFilterData(1).Name ="EncryptFile"
aFilterData(1).Value =true
aFilterData(2).Name ="DocumentOpenPassword"
aFilterData(2).Value ="test" 'dein Passwort
arg(2).Name = "FilterData"
arg(2).Value = aFilterData()
'Datei schreiben
odoc.storetoUrl(arg(0).value,arg())
end sub