|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Сохранение в PDF из Excel
Задали нам объединение N XLS файлов в 1 файл PDF.
Код:
Var XL1: variant; begin .... XL1 := CreateOleObject('Excel.Application'); XL1.DisplayAlerts := false; XL1.WorkBooks.Open('1.xls'); ... XL1.ActiveWorkBook.SaveAs('new1.xls'); ... end. В новых версиях Excel умеет сохранять данные и в PDF, только вот как это сделать из Delphi? Конструкция: Код:
XL1.ActiveWorkBook.SaveAs('new1.pdf', wdFormatPDF{17}); почему-то не работает, сохраняет файл формата XLS только с разрешением PDF. Может кто уже сталкивался с подобной проблемой сохранения и подскажет? |
#2
|
||||
|
||||
запиши макрос и посмотри
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Цитата:
Это вы о чём? |
#4
|
||||
|
||||
Пишу программы за еду. __________________ |
#5
|
|||
|
|||
В общем разобралась как сделать PDF из файла XLS. Кому интересно:
Код:
... Xl.ActiveWorkBook.ExportAsFixedFormat(0, 'C:\test.pdf', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); ... Теперь остается только вопрос как объединить несколько PDF файлов в один. UPD: Сделала с помощью консольной программки Pdftk: Код:
... ShellExecute(Self.Handle, 'open', PChar('pdftk.exe'), PChar(' 1.pdf 2.pdf. 3.pdf 4.pdf output 5.pdf'), PChar('c:\test'), SW_SHOWNORMAL); ... Последний раз редактировалось Galchonok, 22.11.2012 в 00:48. |