Добрый день всем, с кем еще не здоровался! Хорошего всем дня! Суть темы отражена в ее заголовке.
!!!Печатать нужно принтером на бумаге!!! Из того, что имею в настоящее время:
Код
Sub Печать_заданных_листов_файлов_Excel_из_папки()
Dim MyPath$, MyFileName$, ShName, i%
MyPath = ThisWorkbook.Path & "\Газпром" ' Папка, из которой печатаем
MyFileName = Dir(MyPath & "*.xls*")
On Error Resume Next ' Если в файле нет заданного листа, то игнорируем и продолжаем работать
Do Until MyFileName = ""
If Left$(MyFileName, 2) <> "~$" and "Nord" and "Vest" Then
Workbooks.Open Filename:=MyPath & MyFileName, UpdateLinks:=0, ReadOnly:=True
For i = 0 To UBound(ShName)
ActiveWorkbook.Sheets(ShName(i)).PrintOut
Next i
ActiveWorkbook.Close 0
End If
MyFileName = Dir
Loop
End Sub
Традиция "один день - один вопрос" продолжается? Что значит "напечатать файлы"? "Печатать" куда? "Печатать" по пути нахождения текущей книги (ThisWorkbook.Path) или искать файлы по этому пути?
falmrom написал: Из того, что имею в настоящее время:
то что Вы имеете в настоящее время не имеет никакого отношения к тому, что Вы спрашиваете в теме. задам аналогичный вопрос: у меня есть попугай, как из него выкормить слона? понимаете, чтобы выкормить слона нужен слоненок, а о попугае можно забыть и не обращать на него внимания, слон из него всеравно не получится т.е. Ваше сообщение было бы более информативным без приведенного совершенно бесполезного фрагмента кода.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!