[РЕШЕНО] Закрылась главная форма. Почему?

Автор adi_den2013, 12 февраля 2014, 17:41

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

adi_den2013

После конвертации в PDF-формат, закрылась главная форма. Как предотвратить закрытие?

rem Сохранение в формате PDF
sub PDF_balans
rem ----------------------------------------------------------------------
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"
   

   dispatcher.executeDispatch( document, ".uno:ExportToPDF", "", 0, args2() )
   MsgBox "Файл отчета сконвертирован в E:\BALANS\Otchet\BALANS.pdf"
   document.close(True)
end sub


[вложение удалено Администратором]
Яна (in real)

JohnSUN

В document получаешь текущий фрейм, в него грузишь документ для выгрузки в PDF и в конце говоришь ему document.close(True)
Может загрузку документа в какую-то другую переменную организовать?
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

adi_den2013

Даже если я объявляю новую переменную

dim document2 as object
dispatcher.executeDispatch( document2, ".uno:ExportToPDF", "", 0, args2() )


и комментирую принудительное закрытие
document.close(True)

при закрытии файла test3.odt через меню Writer'a - закрывается главная форма.
Яна (in real)

adi_den2013

Помогло скрытое открытие (каламбур :) ) файла

    dim args1(1) as new com.sun.star.beans.PropertyValue
    args1(0).Name  = "URL"
    args1(0).Value = "file:///E:/BALANS/Otchet/test3.odt"
    args1(1).Name  = "Hidden"
     args1(1).Value = TRUE


    с предыдущими корректировками на счет другой переменной.

Спасибо, JohnSUN :)

 
Яна (in real)