Добрый день уважаемые знатоки VBA
Есть задача - необходимо при нажатии на кнопку Печать на листе, чтобы макрос отправлял на печать pdf файлы, ссылки на которые размещены в столбце А.
Я написал макрос и все работает и печатает, но макрос открывает каждый файл по отдельности, что очень не удобно, особенно если файлов 20 и более.
Есть ли возможность отправлять файлы на печать не открывая сами файлы в Adobe ?
Спасибо за ответы
P.S. гиперссылки в файле битые, т.к. у каждого на компьютере будет собственный путь.
Есть задача - необходимо при нажатии на кнопку Печать на листе, чтобы макрос отправлял на печать pdf файлы, ссылки на которые размещены в столбце А.
Я написал макрос и все работает и печатает, но макрос открывает каждый файл по отдельности, что очень не удобно, особенно если файлов 20 и более.
Код |
---|
Sub SetupBtn() ActiveSheet.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Select PrintHyperlinkedPDFs End Sub Sub PrintHyperlinkedPDFs() Dim PDFrng As Range, PDF As Range Dim AdobeReader As String, pdfLINK As String 'there is an extra space at the end of this string AdobeReader = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe" Set PDFrng = Selection 'change this to whatever method you want for setting 'the range of PDF link cells to process and print For Each PDF In PDFrng If PDF.Hyperlinks.Count > 0 Then pdfLINK = PDF.Hyperlinks(1).Address Shell """" & AdobeReader & """/n /t """ & pdfLINK & """" Next PDF Selection.Cells(1).Select End Sub |
Есть ли возможность отправлять файлы на печать не открывая сами файлы в Adobe ?
Спасибо за ответы
P.S. гиперссылки в файле битые, т.к. у каждого на компьютере будет собственный путь.