Ева часто печатает сразу целые книги. Когда она это делает, она печатает на двух сторонах, чтобы сэкономить бумагу. Однако иногда это означает, что первая страница рабочего листа будет напечатана на обратной стороне последней страницы предыдущего рабочего листа. Ева задается вопросом, есть ли способ убедиться, что рабочий лист всегда начинает печатать на новом листе бумаги при двусторонней печати целых книг.

Есть ручной способ подойти к этому и более автоматический метод. Ручной метод включает в себя определение того, для каких листов требуется нечетное количество страниц для печати, а затем принуждение этого листа к использованию четного количества страниц. После того, как вы определите такой рабочий лист, все, что вам нужно сделать, это перейти к его концу (чуть ниже последней строки) и вставить разрыв страницы. (Откройте вкладку «Макет страницы» на ленте и щелкните инструмент «Разрывы». Затем вы можете выбрать «Вставить разрыв страницы».)

Автоматический метод предполагает использование макроса для печати книги вместо использования обычной команды печати. Макрос, по сути, печатает каждый лист отдельно, один за другим. Таким образом, если у вас есть 5 листов, то макрос печатает их как 5 отдельных заданий на печать.

Каждый будет начинаться с начала новой страницы. Вот макрос:

Public Sub PrintAllSheets()

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets         wks.PrintOut     Next     Set wks = Nothing End Sub

Этот макрос, как указано, печатает все листы в книге. Если вы хотите распечатать подмножество рабочих листов, вы можете изменить макрос для печати только тех рабочих листов, которые были выбраны при выполнении макроса.

Sub PrintSomePages()

Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets         wks.PrintOut     Next     Set wks = Nothing End Sub

Один (или оба) из этих макросов можно легко добавить на панель быстрого доступа, чтобы вы могли печатать именно то, что хотите (все или некоторые)

одним нажатием кнопки.

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

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

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

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

Этот совет (1984) применим к Microsoft Excel 2007, 2010, 2013 и 2016.