https://bugs.freedesktop.org/show_bug.cgi?id=40115

John Moore <[email protected]> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Version|4.0.6.2 release             |4.3.3.2 release

--- Comment #10 from John Moore <[email protected]> ---
Bug still present in 4.3.3.2.  Updating the version number.

Here's a reduced version of the macro


=============================================
sub export_pdf
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim sPageRng   as String
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
sPageRng = "1;4"  ' Comma won't work either
rem ----------------------------------------------------------------------
dim args(2) as new com.sun.star.beans.PropertyValue
args(0).Name = "URL"
args(0).Value =
"file:///home/jmoore/Documents/Central/Worksheets/2014/CENTTEST.pdf"
args(1).Name = "FilterName"
args(1).Value = "calc_pdf_Export"
args(2).Name = "FilterData"
args(2).Value = Array(Array("PageRange",0,sPageRng,0))

dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args())


end sub

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to