Макрос печати из Excel файлов PDF из опред. места

[Prewar]

Ранее прочитал тему, http://programmersforum.ru/showthrea...E5%F7%E0%F2%FC , но так как не особо силен в VBA не могу соорудить из выше указанного то что именно нужно.
Далее по теме:
1. Нужно: печать файлов формата PDF из таблицы Excel по названиям.
2. Нужна печать не всего списка, а именно выделенной строки или каким либо другим способом отмеченной.
3. Желательно чтобы файлы распознавались по части своего имени, для более удобного поиска (например имя файла "В01642_Инстр. хир. режущие и ударные для травматологии" распознавалось по "режущие и ударные")

или если кто-нибудь сможет подсказать как сказать макросу из предыдущей темы,как печать именно то имя которое выделено, буду тоже очень счастлив =)

Заранее всем спасибо...

[alex77755]

Если в активной ячейке будет "режущие и ударные"(без кавычек ессно), То из папки
"C:\Temp\" будет распечатан файл содержащий такое сочетание

Sub OpenAndPrint()

    Dim i As Integer, FilePath As String, Paus As Long
    Dim FL
    
    FilePath = "C:\Temp\" 'please, insert our path to folder-source
        URL = Dir(FilePath & "*" & Selection.Value & "*")
        If URL = "" Then MsgBox "File NOT found", vbCritical, "": Exit Sub
        URL = FilePath & URL
'       URL = "C:\Temp\" & Cells(i, "A") 'opening of the file, associated with application
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
    
        Paus = 2000     'time for delay (mS)
        Delay (Paus) 'delay for open of file
    
        SendKeys "^p", True 'insert "Ctrl+P" (Open window for print)
        SendKeys "{Enter}", True 'insert "Enter" (Execute)
        
        Paus = 500     'time for delay (mS)
        Delay (Paus) 'delay for data communication on printer
        
        SendKeys "%{F4}", True 'Close file

End Sub

[Prewar]

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

Если в активной ячейке будет "режущие и ударные"(без кавычек ессно), То из папки
"C:\Temp\" будет распечатан файл содержащий такое сочетание

Sub OpenAndPrint()

    Dim i As Integer, FilePath As String, Paus As Long
    Dim FL
    
    FilePath = "C:\Temp\" 'please, insert our path to folder-source
        URL = Dir(FilePath & "*" & Selection.Value & "*")
        If URL = "" Then MsgBox "File NOT found", vbCritical, "": Exit Sub
        URL = FilePath & URL
'       URL = "C:\Temp\" & Cells(i, "A") 'opening of the file, associated with application
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
    
        Paus = 2000     'time for delay (mS)
        Delay (Paus) 'delay for open of file
    
        SendKeys "^p", True 'insert "Ctrl+P" (Open window for print)
        SendKeys "{Enter}", True 'insert "Enter" (Execute)
        
        Paus = 500     'time for delay (mS)
        Delay (Paus) 'delay for data communication on printer
        
        SendKeys "%{F4}", True 'Close file

End Sub

Хммм... вроде все огонь... только он не рабит... во всех вариантах имени выдает файл не найден=) я уже и все варианты адресов перепробовал для корневой папки с файлами.

[alex77755]

Сделай

Debug.Print URL

после

URL = FilePath & URL

и сравни посимвольно с путём к документу(можно получить Пуск-Выполнить
У меня работает

[Prewar]

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

Сделай

Debug.Print URL

после

URL = FilePath & URL

и сравни посимвольно с путём к документу(можно получить Пуск-Выполнить
У меня работает

Добавил, проверил...

В итоге корневая папка может быть только если диск (например H:\) то все срабатывает находит файл но не отправляет команды Ctrl+P и Enter , а вот закрывать файл закрывает.

[Prewar]

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

Добавил, проверил...

В итоге корневая папка может быть только если диск (например H:\) то все срабатывает находит файл но не отправляет команды Ctrl+P и Enter , а вот закрывать файл закрывает.

Все разобрался=) Огромное спасибо за помощь с основной частью макроса.

З.Ы. Тему можно закрыть.

[ac1-caesar]

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

Добавил, проверил...

В итоге корневая папка может быть только если диск (например H:\) то все срабатывает находит файл но не отправляет команды Ctrl+P и Enter , а вот закрывать файл закрывает.

а у меня почему то не закрывает файл...
В чем может быть причина?