You are viewing a plain text version of this content. The canonical link for it is here.
Posted to issues@openoffice.apache.org by bu...@apache.org on 2013/10/07 17:24:11 UTC

[Bug 99429] Popup while converting to PDF/A in hidden mode

https://issues.apache.org/ooo/show_bug.cgi?id=99429

Ariel Constenla-Haile <ar...@apache.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|CONFIRMED                   |RESOLVED
         Resolution|---                         |IRREPRODUCIBLE

--- Comment #9 from Ariel Constenla-Haile <ar...@apache.org> ---
This bug is irreproducibile.

The default export does not set an interaction handler on the media descriptor,
so there is no dialog showing a warning about transparency.

Example of a default API export:

Sub Default_Export
    Dim oDoc as Object
    Dim aMediaDescriptor(1) as new com.sun.star.beans.PropertyValue
    Dim aFilterData(0) as new com.sun.star.beans.PropertyValue

    oDoc = ThisComponent

    aFilterData(0).Name = "SelectPdfVersion"
    aFilterData(0).Value = 1 ' PDF/A-1 (ISO 19005-1:2005) 

    aMediaDescriptor(0).Name = "FilterName"
    aMediaDescriptor(0).Value = "writer_pdf_Export"
    aMediaDescriptor(1).Name = "FilterData"
    aMediaDescriptor(1).Value = aFilterData

    oDoc.storeToURL(_
        SOME_URL,_
        aMediaDescriptor)
End Sub

In order to get the dialog with the warning about transparency, you have to
explicitly set the Interaction Handler on the media descriptor:

Sub With_Interaction_Warning
    Dim oDoc as Object
    Dim aMediaDescriptor(2) as new com.sun.star.beans.PropertyValue
    Dim aFilterData(0) as new com.sun.star.beans.PropertyValue

    oDoc = ThisComponent

    aFilterData(0).Name = "SelectPdfVersion"
    aFilterData(0).Value = 1 ' PDF/A-1 (ISO 19005-1:2005) 

    aMediaDescriptor(0).Name = "FilterName"
    aMediaDescriptor(0).Value = "writer_pdf_Export"
    aMediaDescriptor(1).Name = "FilterData"
    aMediaDescriptor(1).Value = aFilterData
    aMediaDescriptor(2).Name = "InteractionHandler"
    aMediaDescriptor(2).Value =
CreateUnoService("com.sun.star.task.InteractionHandler")

    oDoc.storeToURL(_
        SOME_URL,_
        aMediaDescriptor)
End Sub

-- 
You are receiving this mail because:
You are on the CC list for the bug.
You are the assignee for the bug.
You are watching all bug changes.