https://bugs.documentfoundation.org/show_bug.cgi?id=136923
--- Comment #6 from [email protected] ---
Hello,
Please excuse my bad English but I am French.
Looks like I have the same problem.
When I try to macro export a report (base) to pdf.
With "Selectpdfversion, 1", I have a pdf / A compliance error
With "Selectpdfversion, 2" I have no error, but the value of form fields are
not displayed.
The macro I am using is as follows:
Sub convertirPDF()
Dim Adresse As String
Dim props As Variant, propsFiltre As Variant
propsFiltre = CreateProperties(Array("SelectPdfVersion",1 ))
props = CreateProperties(Array("FilterName", "writer_pdf_Export",
"FilterData", propsFiltre() ))
Adresse = convertToURL("le chemin et le nom du fichier PDF avec
l'extention")
ThisComponent.storeToURL(Adresse, props())
End Sub
Function CreateProperties(propList() As Variant) As Object
Dim n as long, x as long
n = UBound(propList)
if n < 0 then
CreateProperties = Array()
else
if (n and 1) = 0 then
MsgBox("Erreur : nombre impair d'arguments", 16,
"CreateProperties")
else
Dim p(n\2) As New com.sun.star.beans.PropertyValue
for x = 0 to n\2
p(x).Name = propList(2*x)
p(x).Value = propList(2*x +1)
next
CreateProperties = p()
end if
end if
End Function
--
You are receiving this mail because:
You are the assignee for the bug._______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
