Тема: Выгрузка документов формата pdf
Добрый день, можно ли в программе Универсал 7 SBE автоматически выгрузить сразу 100 договоров формата pdf , если можно, то как, спасибо.
Форум користувачив Універсал 7/SBE
Обговорення нових можливостей, проблем та їх вирішення
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форум користувачив Універсал 7/SBE → Проблеми, питання та побажання → Выгрузка документов формата pdf
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день, можно ли в программе Универсал 7 SBE автоматически выгрузить сразу 100 договоров формата 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
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форум користувачив Універсал 7/SBE → Проблеми, питання та побажання → Выгрузка документов формата pdf
Форум работает на PunBB 1.4.4, при поддержке Informer Technologies, Inc