[РЕШЕНО] Экспорт (проблема перенаправления)

Автор adi_den2013, 7 февраля 2014, 11:00

0 Пользователи и 1 гость просматривают эту тему.

adi_den2013

Экспортирую в PDF-формат макросом файл test3.odt в BALANS.pdf через форму. Сохраняется не test3.odt, а форма. Подскажите, где ошибка?


sub PDF_balans
dim document   as object
dim dispatcher as object
DocURL=convertToURL("///E:/BALANS/Otchet/test3.odt")
Dim p(0) as new com.sun.star.beans.PropertyValue
  p(0).Name = "Hidden"
  p(0).Value = TRUE
  oDoc = starDesktop.loadComponentFromURL(DocURL, "_default", 0, p())
rem   oDoc.close(True)

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///E:/BALANS/Otchet/BALANS.pdf"
args1(1).Name = "FilterName"
args1(1).Value = "writer_pdf_Export"
args1(2).Name = "FilterData"

dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1())
oDoc.close(True)
end sub
Яна (in real)

adi_den2013

Разобралась - работает так:

sub PDF_balans(oEvent as Variant)
rem define variables
dim document   as object
dim dispatcher as object
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    dim args1(1) as new com.sun.star.beans.PropertyValue
    args1(0).Name = "URL"
    args1(0).Value = "file:///E:/BALANS/Otchet/test3.odt"

    rem ----------------------------------------------------------------------
    dispatcher.executeDispatch( document, ".uno:Open", "", 0, args1() )

    dim args2(1) as new com.sun.star.beans.PropertyValue
     
    args2(0).Name = "URL"
    args2(0).Value = "file:///E:/BALANS/Otchet/BALANS.pdf"
    args2(1).Name = "FilterData"
    args2(1).Value = 'установки PDF
    dispatcher.executeDispatch( document, ".uno:ExportToPDF", "", 0, args2() )

end sub


Тему закрыто.
Яна (in real)