[Galchonok]

Задали нам объединение 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. Может кто уже сталкивался с подобной проблемой сохранения и подскажет?

[NumLock]

запиши макрос и посмотри

[Galchonok]

Сообщение от NumLock

запиши макрос и посмотри

Это вы о чём?

[NumLock]

о макросах: http://office.microsoft.com/ru-ru/ex...010014111.aspx

[Galchonok]

В общем разобралась как сделать 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);
...