Печать pdf файлов из списка файлов в Excel

[АПС]

Здраствуйте, нужно организовать печать pdf файлов представленных в списке на листе.
Какие нужны библиотеки для выполнения операций ооткрытия и печати файла?
И как правильно будет записать?
dim pdf as object
set pdf = ? .application

[SAS888]

Могу предложить решение с помощью WinAPI функций.
Посмотрите вложение. Комментарии достаточно подробные. Задавайте URL в коде макроса в виде текстовой строки, содержащей полный путь и имя файла (с расширением). Можно организовать цикл с перебором файлов из ячеек листа Excel. Кстати, этим макросом можно пользоваться для печати (открытия и т.д.) файлов, ассоциированных с любым приложением.
Принцип такой: Открываем файл, вызываем окно вывода на печать, нажимаем ОК, закрываем файл (нажатие кнопки "Alt+F4" для закрытия файла в коде нет. Если нужно - вставьте после задержки). Время задержки, необходимое для открытия файла установлено 2 секунды. Если необходимо - подкорректируйте его практически.

[jungo]

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

Могу предложить решение с помощью WinAPI функций.
Посмотрите вложение. Комментарии достаточно подробные. Задавайте URL в коде макроса в виде текстовой строки, содержащей полный путь и имя файла (с расширением). Можно организовать цикл с перебором файлов из ячеек листа Excel. Кстати, этим макросом можно пользоваться для печати (открытия и т.д.) файлов, ассоциированных с любым приложением.
Принцип такой: Открываем файл, вызываем окно вывода на печать, нажимаем ОК, закрываем файл (нажатие кнопки "Alt+F4" для закрытия файла в коде нет. Если нужно - вставьте после задержки). Время задержки, необходимое для открытия файла установлено 2 секунды. Если необходимо - подкорректируйте его практически.

Добрый день.

Я извиняюсь, немного не-до-понял...
Б самом макросе нужно задавать параметр файла для печати?
А как выполнять "mass print" это возможно с помощью этого макроса?

п.с. извиняюсь за наглость, мой VB Editor не поддерживает русского, можно как-то на кириллице или на английском? Очень интересная тема!

[SAS888]

Задавать ничего не нужно.
1. Макрос откроет файл, ассоциированный с приложением (например, если имя файла "ABCD.pdf", то он откроется с помощью Acrobat, если "ABCD.doc" - с помощью Word и т.д.)
2. Затем введена задержка для ожидания открытия файла.
3. В открытое приложение последовательно посылаем коды нажатия клавиш "Ctrl+P" (открытие окна вывода на печать) и "Enter" (выполнить).
4. Затем введена задержка для ожидания передачи данных на принтер.
5. После всего этого посылаем код нажатия клавиши "Alt+F4" (закрыть приложение).
Вот и все, т.е. файл печатается полностью. Параметры печати - по умолчанию.
Посмотрите вложение (с english комментариями). В нем реализуется вывод на печать файлов, перечисленных в столбце "A" на листе книги. Путь к папке задан в коде макроса (один и тот же). Если файлы расположены в разных местах - меняйте и путь.
ВНИМАНИЕ! Если такой файл отсутствует, то он не откроется, а вместо этого вывод на печать и закрытие будет проделано с настоящей книгой Excel. Советую вставить проверку наличия требуемого файла по указанному пути (в коде этого нет, извините, нет времени).

[jungo]

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

Задавать ничего не нужно.
1. Макрос откроет файл, ассоциированный с приложением (например, если имя файла "ABCD.pdf", то он откроется с помощью Acrobat, если "ABCD.doc" - с помощью Word и т.д.)
2. Затем введена задержка для ожидания открытия файла.
3. В открытое приложение последовательно посылаем коды нажатия клавиш "Ctrl+P" (открытие окна вывода на печать) и "Enter" (выполнить).
4. Затем введена задержка для ожидания передачи данных на принтер.
5. После всего этого посылаем код нажатия клавиши "Alt+F4" (закрыть приложение).
Вот и все, т.е. файл печатается полностью. Параметры печати - по умолчанию.
Посмотрите вложение (с english комментариями). В нем реализуется вывод на печать файлов, перечисленных в столбце "A" на листе книги. Путь к папке задан в коде макроса (один и тот же). Если файлы расположены в разных местах - меняйте и путь.
ВНИМАНИЕ! Если такой файл отсутствует, то он не откроется, а вместо этого вывод на печать и закрытие будет проделано с настоящей книгой Excel. Советую вставить проверку наличия требуемого файла по указанному пути (в коде этого нет, извините, нет времени).

Всё работает! Спасибо.
Есть "бяки", но сам к сожалению добавить не умею.

[АПС]

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

Могу предложить решение с помощью WinAPI функций.
Посмотрите вложение. Комментарии достаточно подробные. Задавайте URL в коде макроса в виде текстовой строки, содержащей полный путь и имя файла (с расширением). Можно организовать цикл с перебором файлов из ячеек листа Excel. Кстати, этим макросом можно пользоваться для печати (открытия и т.д.) файлов, ассоциированных с любым приложением.
Принцип такой: Открываем файл, вызываем окно вывода на печать, нажимаем ОК, закрываем файл (нажатие кнопки "Alt+F4" для закрытия файла в коде нет. Если нужно - вставьте после задержки). Время задержки, необходимое для открытия файла установлено 2 секунды. Если необходимо - подкорректируйте его практически.

Прекрасно.
Это решение значительно удобнее, мне очень понравилось.