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

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

Следующий макрос начинается с запроса пути к каталогу. Если вы укажете путь, макрос затем начнет загружать каждый XLS (Excel)

файл в каталоге, а затем распечатайте второй и третий листы каждого из них. После печати рабочий лист закрывается.

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.

Этот совет (2215) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

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