![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 05.04.2008
Сообщений: 2
|
![]()
Здраствуйте, нужно организовать печать pdf файлов представленных в списке на листе.
Какие нужны библиотеки для выполнения операций ооткрытия и печати файла? И как правильно будет записать? dim pdf as object set pdf = ? .application |
![]() |
![]() |
#2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Могу предложить решение с помощью WinAPI функций.
Посмотрите вложение. Комментарии достаточно подробные. Задавайте URL в коде макроса в виде текстовой строки, содержащей полный путь и имя файла (с расширением). Можно организовать цикл с перебором файлов из ячеек листа Excel. Кстати, этим макросом можно пользоваться для печати (открытия и т.д.) файлов, ассоциированных с любым приложением. Принцип такой: Открываем файл, вызываем окно вывода на печать, нажимаем ОК, закрываем файл (нажатие кнопки "Alt+F4" для закрытия файла в коде нет. Если нужно - вставьте после задержки). Время задержки, необходимое для открытия файла установлено 2 секунды. Если необходимо - подкорректируйте его практически.
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
#3 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
![]() Цитата:
Я извиняюсь, немного не-до-понял... Б самом макросе нужно задавать параметр файла для печати? А как выполнять "mass print" это возможно с помощью этого макроса? п.с. извиняюсь за наглость, мой VB Editor не поддерживает русского, можно как-то на кириллице или на английском? Очень интересная тема!
Jungo must die!!! (C) Bill Gates.
![]() |
|
![]() |
![]() |
#4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Задавать ничего не нужно.
1. Макрос откроет файл, ассоциированный с приложением (например, если имя файла "ABCD.pdf", то он откроется с помощью Acrobat, если "ABCD.doc" - с помощью Word и т.д.) 2. Затем введена задержка для ожидания открытия файла. 3. В открытое приложение последовательно посылаем коды нажатия клавиш "Ctrl+P" (открытие окна вывода на печать) и "Enter" (выполнить). 4. Затем введена задержка для ожидания передачи данных на принтер. 5. После всего этого посылаем код нажатия клавиши "Alt+F4" (закрыть приложение). Вот и все, т.е. файл печатается полностью. Параметры печати - по умолчанию. Посмотрите вложение (с english комментариями). В нем реализуется вывод на печать файлов, перечисленных в столбце "A" на листе книги. Путь к папке задан в коде макроса (один и тот же). Если файлы расположены в разных местах - меняйте и путь. ВНИМАНИЕ! Если такой файл отсутствует, то он не откроется, а вместо этого вывод на печать и закрытие будет проделано с настоящей книгой Excel. Советую вставить проверку наличия требуемого файла по указанному пути (в коде этого нет, извините, нет времени).
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 10.04.2008 в 10:25. Причина: Добавлено |
![]() |
![]() |
#5 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
![]() Цитата:
Есть "бяки", но сам к сожалению добавить не умею.
Jungo must die!!! (C) Bill Gates.
![]() |
|
![]() |
![]() |
#6 | |
Новичок
Джуниор
Регистрация: 05.04.2008
Сообщений: 2
|
![]() Цитата:
Это решение значительно удобнее, мне очень понравилось. |
|
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь: выбор файлов исходя из имени файлов | Antik163RUS | Помощь студентам | 4 | 19.06.2008 21:20 |
Не открывает из списка файлов ListBox | SANTA_KLAUD | Общие вопросы Delphi | 8 | 27.05.2008 20:30 |
Макрос в Excel для обработки группы файлов | ad_sum | Microsoft Office Excel | 1 | 29.12.2007 16:56 |
печать в excel | HANK | Microsoft Office Excel | 1 | 04.08.2007 07:48 |