PDF-Export

[Angelwings]

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:

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

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

[clag]

Hallo Angelwing,

übergib doch noch diesen Parameter

Code: Alles auswählen

"ExportFormFields",false

dann sollte nix mehr schief gehen

scheinbar wird er sonst als "true" angenommen

[Angelwings]

Hallo clag,
erstmal Dank das du geantwortet hast

Also ich dachte ich hätte den Parameter übergeben

Code: Alles auswählen

args1(3).Name = "FilterData"
      args1(3).Value = 
                              Array(
                                        hier --> Array("ExportFormFields",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
                                                    Array("ExportBookmarks",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE))

Wenn ich es anders geht bin ich über jeder Hilfe froh.
Vielleicht auch mit einbisschen Codeschnippsel muss aber nicht sein

[clag]

Hallo Angelwing,

uhpps, da muss ich die Flaschenböden vor den Augen wohl wieder besser putzen

aber wenn du es angibst, dann könnte man jetzt vermuten, das der Parameter nicht, oder nicht richtig übergeben wird ......

probiere es doch mal mit allen Parametern komplett

Code: Alles auswählen

	Dim myFileProp_pdf(2) as new com.sun.star.beans.PropertyValue
	myFileProp_pdf(1).Name = "FilterName"
	myFileProp_pdf(1).Value = "writer_pdf_Export"
	myFileProp_pdf(2).Name = "FilterData"
	myFileProp_pdf(2).Value = Array(_
	Array("UseLosslessCompression",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("Quality",0,90,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("ReduceImageResolution",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("MaxImageResolution",0,300,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("UseTaggedPDF",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("SelectPdfVersion",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("ExportNotes",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("ExportBookmarks",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("OpenBookmarkLevels",0,-1,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("UseTransitionEffects",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("IsSkipEmptyPages",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("IsAddStream",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("FormsType",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("ExportFormFields",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("HideViewerToolbar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("HideViewerMenubar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("HideViewerWindowControls",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("ResizeWindowToInitialPage",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("CenterWindow",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("OpenInFullScreenMode",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("DisplayPDFDocumentTitle",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("InitialView",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("Magnification",0,4,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("Zoom",0,100,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("PageLayout",0,2,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("FirstPageOnLeft",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("InitialPage",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("Printing",0,2,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("Changes",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("EnableCopyingOfContent",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("EnableTextAccessForAccessibilityTools",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("ExportLinksRelativeFsys",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("PDFViewSelection",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("ConvertOOoTargetToPDFTarget",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("ExportBookmarksToPDFDestination",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("_OkButtonString",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("EncryptFile",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("DocumentOpenPassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("RestrictPermissions",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("PermissionPassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),_
	Array("",0,,com.sun.star.beans.PropertyState.DIRECT_VALUE))

[Angelwings]

Hallo calg,

uhpps, da muss ich die Flaschenböden vor den Augen wohl wieder besser putzen

Ja das kenn ich irgendwoher

aber wenn du es angibst, dann könnte man jetzt vermuten, das der Parameter nicht, oder nicht richtig übergeben wird ......

hmm ..... da hast du wohl recht nur

So hab es jetzt mit den ganzen Parametern probiert und es hat immer noch nicht geklappt

[clag]

hast du einmal einen Parameter verändert bei dem offensichtlich erkennbar wird ob die Parameter überhaupt gelesen werden,
also zB die Kompressionsrate für eingebettete JPG oder so ?