Private Function IstPDFAddInInstalliert()As Boolean
	IstPDFAddInInstalliert = _
		Dir(Environ("commonprogramfiles") _
		& "\Microsoft Shared\OFFICE" & _
		Format(Val(Application.Version), "00") _
		& "\EXP_PDF.DLL") <> ""
End Function
