Автоматическая печать ссылок

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Автоматическая печать ссылок (Макросы/Sub)

AlekseyM

Дата: Суббота, 04.11.2017, 22:48 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый вечер!
Есть таблица в Excel Название документа - Ссылка на документ в формате .doc.
Возможно ли автоматизировать распечатку всех указанных в таблице документов?
С помощь макроса, чтобы, например, можно было нажать на кнопку Печать и по очереди все ссылки на документы поступали в очередь печати на принтер.
Заранее спасибо.

К сообщению приложен файл: 2029169.xlsx (8.9 Kb)

Ответить

krosav4ig

Дата: Воскресенье, 05.11.2017, 21:47 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,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]