Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.04.2008, 09:45   #1
АПС
Новичок
Джуниор
 
Регистрация: 05.04.2008
Сообщений: 2
По умолчанию Печать pdf файлов из списка файлов в Excel

Здраствуйте, нужно организовать печать pdf файлов представленных в списке на листе.
Какие нужны библиотеки для выполнения операций ооткрытия и печати файла?
И как правильно будет записать?
dim pdf as object
set pdf = ? .application
АПС вне форума
Старый 09.04.2008, 13:32   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Могу предложить решение с помощью WinAPI функций.
Посмотрите вложение. Комментарии достаточно подробные. Задавайте URL в коде макроса в виде текстовой строки, содержащей полный путь и имя файла (с расширением). Можно организовать цикл с перебором файлов из ячеек листа Excel. Кстати, этим макросом можно пользоваться для печати (открытия и т.д.) файлов, ассоциированных с любым приложением.
Принцип такой: Открываем файл, вызываем окно вывода на печать, нажимаем ОК, закрываем файл (нажатие кнопки "Alt+F4" для закрытия файла в коде нет. Если нужно - вставьте после задержки). Время задержки, необходимое для открытия файла установлено 2 секунды. Если необходимо - подкорректируйте его практически.
Вложения
Тип файла: rar Print.rar (6.7 Кб, 206 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 10.04.2008, 09:15   #3
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

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

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

п.с. извиняюсь за наглость, мой VB Editor не поддерживает русского, можно как-то на кириллице или на английском? Очень интересная тема!
Jungo must die!!! (C) Bill Gates.
jungo вне форума
Старый 10.04.2008, 10:22   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

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

Последний раз редактировалось SAS888; 10.04.2008 в 10:25. Причина: Добавлено
SAS888 вне форума
Старый 10.04.2008, 16:33   #5
jungo
Форумчанин Подтвердите свой е-майл
 
Аватар для jungo
 
Регистрация: 14.11.2007
Сообщений: 163
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Задавать ничего не нужно.
1. Макрос откроет файл, ассоциированный с приложением (например, если имя файла "ABCD.pdf", то он откроется с помощью Acrobat, если "ABCD.doc" - с помощью Word и т.д.)
2. Затем введена задержка для ожидания открытия файла.
3. В открытое приложение последовательно посылаем коды нажатия клавиш "Ctrl+P" (открытие окна вывода на печать) и "Enter" (выполнить).
4. Затем введена задержка для ожидания передачи данных на принтер.
5. После всего этого посылаем код нажатия клавиши "Alt+F4" (закрыть приложение).
Вот и все, т.е. файл печатается полностью. Параметры печати - по умолчанию.
Посмотрите вложение (с english комментариями). В нем реализуется вывод на печать файлов, перечисленных в столбце "A" на листе книги. Путь к папке задан в коде макроса (один и тот же). Если файлы расположены в разных местах - меняйте и путь.
ВНИМАНИЕ! Если такой файл отсутствует, то он не откроется, а вместо этого вывод на печать и закрытие будет проделано с настоящей книгой Excel. Советую вставить проверку наличия требуемого файла по указанному пути (в коде этого нет, извините, нет времени).
Всё работает! Спасибо.
Есть "бяки", но сам к сожалению добавить не умею.
Jungo must die!!! (C) Bill Gates.
jungo вне форума
Старый 15.04.2008, 16:04   #6
АПС
Новичок
Джуниор
 
Регистрация: 05.04.2008
Сообщений: 2
По умолчанию Спасибо за совет.

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь: выбор файлов исходя из имени файлов 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