Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматическая печать ссылок - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая печать ссылок (Макросы/Sub)
Автоматическая печать ссылок
AlekseyM Дата: Суббота, 04.11.2017, 22:48 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый вечер!
Есть таблица в Excel Название документа - Ссылка на документ в формате .doc.
Возможно ли автоматизировать распечатку всех указанных в таблице документов?
С помощь макроса, чтобы, например, можно было нажать на кнопку Печать и по очереди все ссылки на документы поступали в очередь печати на принтер.
Заранее спасибо.
К сообщению приложен файл: 2029169.xlsx(9Kb)
 
Ответить
СообщениеДобрый вечер!
Есть таблица в Excel Название документа - Ссылка на документ в формате .doc.
Возможно ли автоматизировать распечатку всех указанных в таблице документов?
С помощь макроса, чтобы, например, можно было нажать на кнопку Печать и по очереди все ссылки на документы поступали в очередь печати на принтер.
Заранее спасибо.

Автор - AlekseyM
Дата добавления - 04.11.2017 в 22:48
krosav4ig Дата: Воскресенье, 05.11.2017, 21:47 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1479
Репутация: 599 ±
Замечаний: 0% ±

Excel 2007, 2013
Здравствуйте [vba]
Код
Sub PrintAll()
    Dim v As Variant
    With Application: .EnableEvents = 0: .ScreenUpdating = 0
    With CreateObject("Shell.Application").Namespace(0)
        For Each v In Range([B3], [B3].End(xlDown)).Value
            On Error Resume Next
            .ParseName(v).InvokeVerbEx "Print"
            If Err Then 'если файл не найден
                'On Error GoTo 0: Err.Raise 53
                Debug.Print v: Err.Clear 'пишем путь пропущенного файла в immediate
            End If
        Next
    End With
    .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub
[/vba]
К сообщению приложен файл: 2029169.xlsm(15Kb)


(_)Õvõ(_)
 
Ответить
СообщениеЗдравствуйте [vba]
Код
Sub PrintAll()
    Dim v As Variant
    With Application: .EnableEvents = 0: .ScreenUpdating = 0
    With CreateObject("Shell.Application").Namespace(0)
        For Each v In Range([B3], [B3].End(xlDown)).Value
            On Error Resume Next
            .ParseName(v).InvokeVerbEx "Print"
            If Err Then 'если файл не найден
                'On Error GoTo 0: Err.Raise 53
                Debug.Print v: Err.Clear 'пишем путь пропущенного файла в immediate
            End If
        Next
    End With
    .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 05.11.2017 в 21:47
AlekseyM Дата: Вторник, 07.11.2017, 20:03 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо большое, работает!
 
Ответить
СообщениеСпасибо большое, работает!

Автор - AlekseyM
Дата добавления - 07.11.2017 в 20:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая печать ссылок (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!