1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: OOo Basic: экспорт документа в PDF

Автоматическое сохранение текущего документа в PDF по указанному пути:

Sub SaveToPdf()
    Dim oDisp, oFrame
    Dim a(2) As New com.sun.star.beans.PropertyValue
    a(0).Name = "URL"        : a(0).Value = "file:///c:/temp/my_file_name_.pdf"
    a(1).Name = "FilterName" : a(1).Value = "writer_pdf_Export"
    oFrame = ThisComponent.CurrentController.Frame
    oDisp = createUnoService("com.sun.star.frame.DispatchHelper")
    oDisp.executeDispatch(oFrame, ".uno:ExportDirectToPDF", "", 0, a())
End Sub
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.