Seite 1 von 1
speichern als *.PDF per Makro
Verfasst: Sa, 14.08.2004 15:54
von mecki_45
Hallo zusammen,
meine letzte Frage:
Wie muss das Makro aussehen, damit ich eine Datei als *.PDF abspeichern kann?
Grüßle
Alex
Verfasst: So, 15.08.2004 11:58
von 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