1 Тема от usver

  • usver
  • New member
  • Неактивен
  • Зарегистрирован: 2017-04-18
  • Сообщений: 1

Тема: Выгрузка документов формата pdf

Добрый день,  можно ли в программе Универсал 7 SBE автоматически выгрузить сразу 100 договоров  формата pdf , если можно, то как, спасибо.

2 Ответ от Yury Vitovsky

  • Yury Vitovsky
  • Yury Vitovsky
  • Member
  • Неактивен
  • Зарегистрирован: 2016-05-11
  • Сообщений: 161

Re: Выгрузка документов формата pdf

Добрый день, можно, если написать соответствующий макрос.
PDF можно сделать средствами MS Word 2007+
Вот пример.

LOCAL oWord
LOCAL oDoc
LOCAL cFileName
LOCAL cOutPut

cFileName := _aFEVParameters[1]


oWord := CreateObject("Word.Application")

IF VAL(oWord:Version) < 12
   oWord:quit()
   oWord:destroy()
   Warning(,"Для поддержки создания PDF на Вашем компьютере должна быть установлена версия MS Word не ниже, чем 2007")
   RETURN cFileName
ENDIF

cOutPut := STRTRAN(UPPER(cFileName),'.RTF','.PDF')
oDoc:=oWord:Documents:open(cFileName)

oDoc:ExportAsFixedFormat(cOutPut,17,.F.,0,0,1,1,0,.T.,.T.,0,.T.,.T.,.F.)

oWord:quit(.F.)
oWord:destroy()

RETURN cOutPut