Если у вас есть много рабочих тетрадей, накопленных за долгие годы, возможно, вам придется распечатать некоторые рабочие листы из каждой из них. Например, у вас может быть папка, содержащая книги для каждого подразделения вашей компании за предыдущее десятилетие. Если в вашей компании восемь подразделений, это означает, что у вас в папке 80 книг. Теперь, если вам нужно распечатать цифры за второй и третий кварталы (из второго и третьего листов каждой книги), вы начнете видеть проблему. Загрузка каждой книги и последующая печать выбранных листов может занять очень много времени.

Более быстрый способ — создать макрос, который будет печатать за вас.

Следующий макрос начинается с запроса пути к каталогу. При условии, что вы указали путь, макрос затем начинает загружать каждый файл книги в каталоге, а затем печатает второй и третий рабочий лист из каждого из них. (Макрос на самом деле не заботится о том, какой тип файлов книги находится в каталоге — это могут быть файлы XLS, XLSX или XLSM. Он должен загружать их все.) После печати книга закрывается.

Public Sub PrintWorkbooks()

Dim sCurFile As String     Dim sPath As String

'Get the path     sPath = InputBox("Starting path?", "PrintWorkbooks")

If sPath <> "" Then         On Error Resume Next         Application.ScreenUpdating = False         If Right(sPath, 1) <> "\" Then             sPath = sPath & "\"

End If         sCurFile = Dir(sPath & ".xls", vbNormal)

Do While Len(sCurFile) <> 0             Workbooks.Open sPath & sCurFile, , True             With Workbooks(sCurFile)

.Worksheets(2).PrintOut                 .Worksheets(3).PrintOut                 .Close SaveChanges:=False             End With             sCurFile = Dir             DoEvents         Loop         Application.ScreenUpdating = True         On Error GoTo 0     End If End Sub

Очевидно, что если у вас в каталоге довольно много книг, печать может занять некоторое время. Вы можете найти время, когда вам больше нечего делать, а затем просто дать макросу начать работу.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (11316) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Printing_Selected_Worksheets [Печать выбранных листов].