Печать нескольких листов в один pdf

[tae1980]

Передо мной стоит задача: есть книгу с n количеством листов, нужно распечатать любое количество листов в произвольном порядке в один pdf. В качестве виртуального принтера стоят: doPDF v7, FreePDF.

Пытаюсь решить задачу через вариацию строки "ActiveSheet.PrintOut ActivePrinter:=ПринтерPDF". Но получается так что каждый лист печататься отдельно (в свой файл).

Как можно решать задачу?

Сразу вопросы по теме:
1. В каком формате печатает Excel, если установить PrintToFile=True?
2. Как программно задать имя и путь файла при печати на виртуальный принтер?
3. Может нужно выбрать иной виртуальный принтер? Какой лучше?
4. Может стоит разделить задачу на две: 1) печатаем каждый лист в отдельный pdf. 2) Объединяем все pdf в один. Возникает вопрос: как можно объединить несколько pdf в один?

Отмечу что стоит excel 2003. Как я понял в 2007 и позже можно воспользоваться командой: ExportAsFixedFormat. Можно ли подгрузить её в 2003 через dll?

[Hugo121]

4.
http://www.pdflabs.com/

Merge Two or More PDFs into a New Document
pdftk 1.pdf 2.pdf 3.pdf cat output 123.pdf
or (Using Handles):
pdftk A=1.pdf B=2.pdf cat A B output 12.pdf
or (Using Wildcards):
pdftk *.pdf cat output combined.pdf

[tae1980]

Экспериментально нашел вариант печати:

    Sheets(Array("Исх.данные объекта", "Исх.данные договора", "Исх.данные МежПлана")).Select
    ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=ПринтерPDF

Вроде бы все выделенные листы должны выводить одновременно. Но получается так что первые два выводятся в один pdf, третий лист выводиться в отдельный файл. Скорее всего из-за того что два первых листа идут подряд, а третий отделен от них листом. Решение почти идеальное.
Как можно обойти проблему необходимости размещать листы подряд?

[tae1980]

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

4.
http://www.pdflabs.com/

И это все в Excel? ) Очень, очень интересно, в том числе и вращение страниц. Спасибо, буду изучать.

[tae1980]

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

4.
http://www.pdflabs.com/

Прошу прощение за свое невежество, но как эту библиотеку подключить в excel?

[Hugo121]

Это не в Экселе - но работает из командной строки. Следовательно, можно взять сохранённые файлы (если известно, куда они сохранены) и собрать в один этим же макросом, который отправляет на печать.

[tae1980]

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

Это не в Экселе - но работает из командной строки. Следовательно, можно взять сохранённые файлы (если известно, куда они сохранены) и собрать в один этим же макросом, который отправляет на печать.

Понятно. Хорошее решение.
Теперь осталось научиться задавать имена pdf при печати. Пока это не удалось сделать, виртуальный принтер упорно запрашивает имя файла у пользователя.

[Hugo121]

Ну там ведь есть возможность
pdftk *.pdf cat output combined.pdf
Т.е. просто нужно иметь изначально пустой каталог, куда сохранять.
Можно его создать этим же кодом например с именем из даты-времени, туда распечатать, собрать в один файл, мусор (каталог) удалить.

[tae1980]

FreePDF установил на комп Ghostscript. Кто нибудь работал с этим?
Может проще напрямую работать, а не через FreePDF?

[tae1980]

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

Ну там ведь есть возможность
pdftk *.pdf cat output combined.pdf
Т.е. просто нужно иметь изначально пустой каталог, куда сохранять.
Можно его создать этим же кодом например с именем из даты-времени, туда распечатать, собрать в один файл, мусор (каталог) удалить.

Сейчас у меня уходит 20 минут на создание всех таблиц и 40 минут на их распечатку. Создается сразу много листов, пока все переберешь... Вот встала задача автоматизировать этот процесс.
Ни как не удается передать в виртуальный принтер имя файла для вывода, он всегда запрашивает пользователя. Можно конечно заставить себя n количество раз выбрать один и тот же каталог, а потом все слить в один pdf. Но согласись это плохое решение.
Решение должно быть простое, но оно ни как не дается. :(