CftClub.ru
Клуб специалистов ЦФТ-Банк

[WORD].Save_Pdf и [EXCEL].Save_Pdf

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Справочник PL/PLUS: Функции, примеры, приёмы
Предыдущая тема :: Следующая тема  
Автор Сообщение
Kana707
Участник
Неподтвержденный


Вступление в Клуб: 18.04.2019
СообщениеСр Янв 15, 2020 08:49   [WORD].Save_Pdf и [EXCEL].Save_Pdf Ответить с цитатой
Полезность: Нет оценки
Всем привет.
Столкнулся с задачей сохранением файлов *.docx или *.xlsx в формат *.pdf. Нашел на форуме пример, что это можно сделать через пакет [WORD] или [EXCEL] с помощью процедуры Save_Pdf. Позже выяснилось, что у нас нет такой процедуры в пакетах.
Кому не трудно можете выслать файл пакета или текст процедуры.
Буду очень благодарен.
markoff
Участник - экстремал
Неподтвержденный


Вступление в Клуб: 09.06.2009
СообщениеСр Янв 15, 2020 09:57    Ответить с цитатой
Полезность: Нет оценки
Код:
[EXCEL].CMD('book.ExportAsFixedFormat xlTypePDF, "'||v_path||v_filename||'"');
Kana707
Участник
Неподтвержденный


Вступление в Клуб: 18.04.2019
СообщениеСр Янв 15, 2020 10:48    Ответить с цитатой
Полезность: Нет оценки
markoff пишет:
Код:
[EXCEL].CMD('book.ExportAsFixedFormat xlTypePDF, "'||v_path||v_filename||'"');


Ждал как минимум больше одной строчки кода Very Happy
Вот спасибо!
markoff
Участник - экстремал
Неподтвержденный


Вступление в Клуб: 09.06.2009
СообщениеСр Янв 15, 2020 11:01    Ответить с цитатой
Полезность: Нет оценки
Kana707 пишет:
markoff пишет:
Код:
[EXCEL].CMD('book.ExportAsFixedFormat xlTypePDF, "'||v_path||v_filename||'"');


Ждал как минимум больше одной строчки кода Very Happy
Вот спасибо!


В самом конце когда формируете excel файл в место
[EXCEL].Save_As указываете строчку что я Вам написал.

P.S. Save_Pdf у нас тоже ее нет.
markoff
Участник - экстремал
Неподтвержденный


Вступление в Клуб: 09.06.2009
СообщениеСр Янв 15, 2020 11:04    Ответить с цитатой
Полезность: Нет оценки
Сделайте поиск на сайте по слову ExportAsFixedFormat найдете примеры и для Word
Kana707
Участник
Неподтвержденный


Вступление в Клуб: 18.04.2019
СообщениеСр Янв 15, 2020 11:21    Ответить с цитатой
Полезность: Нет оценки
самый первый ответ, сразу меня удовлетворил)))
markoff спасибо за подробный комментарий
Volod
Профи
Неподтвержденный


Вступление в Клуб: 19.09.2007
СообщениеСр Янв 15, 2020 12:21    Ответить с цитатой
Полезность: Нет оценки
Мне кажется, если поискать в операциях "pdf" - будет много примеров.
Kana707
Участник
Неподтвержденный


Вступление в Клуб: 18.04.2019
СообщениеЧт Янв 16, 2020 06:34    Ответить с цитатой
Полезность: 2
Хотел поделится решением, который реализовал:

Код:

'Проверка
--Вызов процедуры
v_HTML_FileName :=v_LocalPath||vc_ftpFile;      
v_PDF_FileName := substr(v_HTML_FileName, 1, length(v_HTML_FileName)-5) || '.pdf';
[CSMD].Command(V_DEST_STR,'WordToPdf "'||v_HTML_FileName||'","'||v_PDF_FileName||'"');


'Клиент-скрипт
Public Sub ExcelToPdf(sFrom, sTo)
  Set excel = CreateObject("Excel.Application")
  excel.ScreenUpdating = false
  excel.DisplayAlerts = false
  Set workbook = excel.Workbooks.Open(sFrom)
  workbook.ExportAsFixedFormat 0, sTo
  workbook.Close()
  excel.Quit()
  Set workbook = Nothing
  Set excel = Nothing
End Sub

Public Sub WordToPdf(sFrom, sTo)
  Set word = CreateObject("Word.Application")
  Set doc = word.Documents.Open(sFrom)
  doc.Activate()
  doc.SaveAs2 sTo, 17
  doc.Close()
  word.Quit()
  Set doc= Nothing
  Set word = Nothing
End Sub
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Справочник PL/PLUS: Функции, примеры, приёмы Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru