PDF-Export

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: PDF-Export

Re: PDF-Export

von clag » Do, 07.10.2010 17:08

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 ?

Re: PDF-Export

von Angelwings » Do, 07.10.2010 15:06

Hallo calg,
uhpps, :oops: da muss ich die Flaschenböden vor den Augen wohl wieder besser putzen :lol:
Ja das kenn ich irgendwoher :lol:
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 :evil:

Re: PDF-Export

von clag » Do, 07.10.2010 15:02

Hallo Angelwing,

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

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))

Re: PDF-Export

von Angelwings » Do, 07.10.2010 14:55

Hallo clag,
erstmal Dank das du geantwortet hast :D

Also ich dachte ich hätte den Parameter übergeben :shock:

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 8) muss aber nicht sein :D

Re: PDF-Export

von clag » Do, 07.10.2010 14:33

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

PDF-Export

von Angelwings » Do, 07.10.2010 13:25

Hallo Leute :) ,
Ich bin neu hier und nerv euch gleich mit einer Frage 8)

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 :wink:

P.S.: Die Seite http://wiki.services.openoffice.org/wik ... PDF_export hab ich schon studiert :cry:

Nach oben