PDF-Export
Verfasst: Do, 07.10.2010 13:25
Hallo Leute 
,
Ich bin neu hier und nerv euch gleich mit einer Frage
Also ich fülle mittels einem Makro ein Textdokument, wo auch Checkboxen enthalten sind. Nach dem füllen soll das Dokument als PDF-Datei gespeichert werden ohne das man in der PDF die Checkboxen ändern kann.
Den Code hab ich soweit:
So mein Problem ist jetzt, wenn ich einen manullen PDF-Export mit dem Paramter "Pdf Formular erzeugen" vollführt habe und dann den oben getippten Makro starte, das eigendlich ein PDF-Export ohne die Einstellung "PDF Formular erzeugen" erstellt, erhalte ich eine PDF-Datei mit anklickbaren Checkboxen.
Ich hoff ihr versteht das Problem und könnt mir helfen
P.S.: Die Seite http://wiki.services.openoffice.org/wik ... PDF_export hab ich schon studiert
,Ich bin neu hier und nerv euch gleich mit einer Frage
Also ich fülle mittels einem Makro ein Textdokument, wo auch Checkboxen enthalten sind. Nach dem füllen soll das Dokument als PDF-Datei gespeichert werden ohne das man in der PDF die Checkboxen ändern kann.
Den Code hab ich soweit:
Code: Alles auswählen
Sub Main
rem Testdatei füllen
FileName = printToPdf(Datei,Username,Dokpfad)
End Sub
Private Function printToPdf(Datei$, User$, DocPfad$) As String
Dim FileToSave As String
Dim sdummy As String
Dim Printer
Dim PrinterString$
dim document as object
dim dispatcher as object
printToPdf = ""
If myGetProfile("ZusatzWerte", "PDFErstellen", Datei$) = "1" Then
FileToSave = Left(DocFullName, Len(DocFullName) - 4)
sUrl= converttourl(FileToSave+".pdf")
document = VorlageDoc.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = sUrl
args1(1).Name = "FilterName"
args1(1).Value = "writer_pdf_Export"
args1(2).Name = "SelectionOnly"
args1(2).Value = true
args1(3).Name = "FilterData"
args1(3).Value = Array(Array("ExportFormFields",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarks",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE))
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
If FileExists(FileToSave + ".pdf") Then
printToPdf = FileToSave + ".pdf"
End If
End If
End Function
Ich hoff ihr versteht das Problem und könnt mir helfen
P.S.: Die Seite http://wiki.services.openoffice.org/wik ... PDF_export hab ich schon studiert
da muss ich die Flaschenböden vor den Augen wohl wieder besser putzen 
