sub xRechPDF
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim stAuftrag as String
dim stRechFile as String
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
stAuftrag = Mid(document.Title,2,6)
stRechFile = ThisComponent.URL
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
rem args1(0).Value = "file:///C:/HDBE/R100001.odt"
rem args1(0).Value = ConvertToURL("C:/HDBE/R" & stAuftrag & ".odt")
args1(0).Value = Replace(stRechFile, ".html", ".odt")
args1(1).Name = "FilterName"
args1(1).Value = "writer8"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
	F12()
rem ----------------------------------------------------------------------
rem	dim args2(2) as new com.sun.star.beans.PropertyValue
rem	args2(0).Name = "URL"
rem	rem args2(0).Value = "file:///C:/HDBE/R100001.pdf"
rem	rem args2(0).Value = ConvertToURL("C:/HDBE/R" & stAuftrag & ".pdf")
rem	args2(0).Value = Replace(stRechFile, ".html", ".pdf")
rem	args2(1).Name = "FilterName"
rem	args2(1).Value = "writer_pdf_Export"
rem	args2(2).Name = "FilterData"
rem	args2(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,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SelectPdfVersion",0,3,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PDFUACompliance",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportNotes",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportNotesInMargin",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ViewPDFAfterExport",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportBookmarks",0,true,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("ExportPlaceholders",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("IsAddStream",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportFormFields",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("FormsType",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("AllowDuplicateFieldNames",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,false,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,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Magnification",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Zoom",0,100,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PageLayout",0,0,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,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EnableTextAccessForAccessibilityTools",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("ExportLinksRelativeFsys",0,true,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("SignPDF",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("_OkButtonString",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Watermark",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EncryptFile",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PreparedPasswords",0,,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("RestrictPermissions",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PreparedPermissionPassword",0,Array(),com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SignatureLocation",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SignatureReason",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SignatureContactInfo",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SignaturePassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SignatureCertificate",0,,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("SignatureTSA",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("UseReferenceXObject",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE))
rem	
rem	dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args2())
rem statt der vorigen Zeilen (mit ewig langem Value-Array) die folgenden Zeilen:
				DIM oDoc as Object
				oDoc = ThisComponent
				DIM stPrintPDFx as String
				stPrintPDFx = Replace(stRechFile, ".html", ".pdf")
				DIM filterArgs(1) as New com.sun.star.beans.PropertyValue
				filterArgs(1).Name = "SelectPdfVersion"
				filterArgs(1).Value = 3
				DIM arg(1) AS NEW com.sun.star.beans.PropertyValue
				arg(0).name = "FilterName"
				arg(0).value = "writer_pdf_Export"
				arg(1).Name = "FilterData"
				arg(1).Value = filterArgs
				oDoc.storeToURL(stPrintPDFx, arg())	

	wait 2000
rem ----------------------------------------------------------------------
dim stCommand as String
dim stProgUrl as String
dim stApp as String
dim stPDFSource as String
dim stXMLSource as String
dim stPDFTarget as String

stRechFile = Replace(stRechFile, "File:///", "")
stProgUrl = "java"
stApp = "C:\HDBE\MustangZug.jar"
rem stPDFSource = "C:HDBE\R" & stAuftrag & ".pdf"
stPDFSource = Replace(stRechFile, ".html", ".pdf")
rem stXMLSource = "C:\HDBE\R" & stAuftrag & "_zug.xml"
stXMLSource = Replace(stRechFile, ".html", "_zug.xml")
rem stPDFTarget = "C:\HDBE\R" & stAuftrag & "_zug.pdf"
stPDFTarget = Replace(stRechFile, ".html", "_zug.pdf")

			IF FileExists(stPDFTarget) THEN kill(stPDFTarget)	'šberschreiben geht sonst nicht mit Mustang	
			wait 2000

	stCommand = stProgUrl & " -jar """ & stApp & """ --action combine --source """ & stPDFSource & """ --source-xml """ & stXMLSource &_
		""" --format zf --version 2 --profile X --out """ & stPDFTarget & """ --no-additional-attachments"
	Shell( stCommand, 1, "", true )

end sub