[Galchonok]

Задали нам объединение N XLS файлов в 1 файл PDF.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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?

Конструкция:

Код:

1	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. Кому интересно:

Код:

1 2 3

... Xl.ActiveWorkBook.ExportAsFixedFormat(0, 'C:\test.pdf', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); ...

Теперь остается только вопрос как объединить несколько PDF файлов в один.

UPD: Сделала с помощью консольной программки Pdftk:

Код:

1 2 3

... ShellExecute(Self.Handle, 'open', PChar('pdftk.exe'), PChar(' 1.pdf 2.pdf. 3.pdf 4.pdf output 5.pdf'), PChar('c:\test'), SW_SHOWNORMAL); ...