speichern als *.PDF per Makro

[mecki_45]

Hallo zusammen,
meine letzte Frage:
Wie muss das Makro aussehen, damit ich eine Datei als *.PDF abspeichern kann?

Grüßle
Alex

[Stephan]

Code: Alles auswählen

Sub als_PDF_exportieren	
Dim exportEigenschaften(1) as New com.sun.star.beans.PropertyValue
dokument = ThisComponent
pfad = ConvertToUrl( "D:/test.pdf" )
FilterName = "calc_pdf_Export"
exportEigenschaften(0).Name = "FilterName"
exportEigenschaften(0).Value = FilterName
exportEigenschaften(1).Name = "CompressMode"
exportEigenschaften(1).Value = 0 
dokument.storeToUrl(  pfad , exportEigenschaften() )	
End Sub

Stephan