OpenOffice.info

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

[code]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[/code]

Stephan

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

Grüßle
Alex