Как печатать только нечетные страницы excel

В работе с Excel вам обычно может потребоваться распечатать страницы, и по умолчанию вы можете распечатать выделенный фрагмент, распечатать всю книгу или распечатать определенные страницы, например, со страницы с 1 по 3, но вы знаете, как распечатать только четные или нечетные страницы активной книги? В этой статье я расскажу о приемах, которые помогут вам распечатать только четные или нечетные страницы только в книге Excel.

Печать четных/нечетных страниц только с VBA

Печать определенных страниц с помощью Kutools for Excel

Распечатать первую страницу каждого рабочего листа с помощью Kutools for Excel

Печатать четные/нечетные страницы только с VBA

Если вы хотите распечатать в Excel только четные или нечетные страницы, для этого можно применить VBA.

1. Нажмите клавиши Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений .

2. И нажмите Вставить > Module , затем вставьте ниже код VBA в новое окно Module .

VBA: печатать только четные или нечетные страницы

3. Нажмите F5 , чтобы выполнить VBA, и введите 1, чтобы распечатать все нечетные страницы, или введите 2, чтобы распечатать все четные страницы, во всплывающем диалоговом окне Kutools for Excel . См. Снимок экрана:

4. Нажмите OK , и будут печататься только нечетные или четные страницы.

Печать определенных страниц с помощью Kutools for Excel

Если вы не знакомы с кодом VBA, вы можете применить Kutools for Excel Распечатать определенные страницы , он может быстро распечатать определенные страницы только по мере необходимости, например, печатать только нечетные/четные страницы, печатать 5-12 страниц только.

После установки Kutools for Excel, сделайте следующее: ( Бесплатно загрузите Kutools for Excel прямо сейчас!)

Нажмите Kutools Plus > Печать > Печать определенных страниц , и во всплывающем диалоговом окне выберите вариант Нечетные страницы или Четные страницы по мере необходимости. См. Снимок экрана:

Нажмите ОК . а затем печатались только нечетные или четные страницы.

Примечание . Если вы хотите распечатать определенные страницы, например, страницу 2 – страницу 5, вы можете проверить опцию Custom range и ввести 2-5 в текстовое поле. См. Снимок экрана:

Совет. Если вы хотите получить бесплатную пробную версию функции печати определенных страниц, сначала перейдите к бесплатной загрузке Kutools for Excel, а затем перейдите к применению операции в соответствии с указанными выше шагами.

Печать Только нечетные/четные/определенные страницы

Распечатать первую страницу каждого рабочего листа с помощью Kutools for Excel

Если есть – это несколько листов в вашей открытой книге, и теперь вы хотите распечатать всю первую страницу каждого рабочего листа, в этом случае вы можете применить утилиту Печать первой страницы каждого рабочего листа из Kutools for Excel , чтобы быстро сделать это.

После установки Kutools for Excel, сделайте следующее: ( Скачайте бесплатно Kutools for Excel прямо сейчас!)

Включите книгу, которую вы хотите распечатать, первую страницу каждого лист и нажмите Kutools Plus > Печать > Печать первой страницы каждого рабочего листа . См. Снимок экрана:

Затем печатаются все первые страницы каждого листа.

Относительные статьи:

• Как напечатать последнюю страницу первой в Excel?
• Как распечатать X строк на странице в Excel?

В работе с Excel вам обычно может потребоваться распечатать страницы, и по умолчанию вы можете распечатать выделенный фрагмент, распечатать всю книгу или распечатать определенные страницы, например, страницы с 1 по 3, но знаете ли вы, как распечатать только четные страницы или нечетные страницы активной книги? В этой статье я расскажу о приемах, которые помогут вам распечатать только четные или нечетные страницы только в книге Excel.

Печатать четные / нечетные страницы только с VBA

Распечатайте определенные страницы с помощью Kutools for Excel

Распечатайте первую страницу каждого рабочего листа с помощью Kutools for Excel

Печатать четные / нечетные страницы только с VBA

В Excel, если вы хотите распечатать только четные или нечетные страницы, для этого можно применить VBA.

1. Нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

2. И нажмите Вставить > Модули, затем вставьте ниже код VBA в новый Модули окно.

VBA: печатать только четные или нечетные страницы

Sub PrintOddEven()
'UpdatebyKutoolsforExcel20160105
    Dim xPages As Long
    Dim xFPage As Variant
    Dim Page As Integer
    xPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    xFPage = Application.InputBox("Enter 1 for odd pages, enter 2 for even pages", "Kutools for Excel", , , , , , 1)
    If TypeName(xFPage) = "Boolean" Then Exit Sub
    If xFPage > 0 Then
        xFPage = Abs((xFPage Mod 2) - 2)
        For Page = xFPage To xPages Step 2
            ActiveSheet.PrintOut Page, Page
        Next
    End If
End Sub

3. Нажмите F5 для выполнения VBA и введите 1 чтобы распечатать все нечетные страницы, или введите 2 распечатать все четные страницы во всплывающем Kutools for Excel диалог. Смотрите скриншот:

4. Нажмите OK, и печатаются только нечетные или четные страницы.

Распечатайте определенные страницы с помощью Kutools for Excel

Если вы не знакомы с кодом VBA, вы можете подать заявку Kutools for Excel‘s Печать определенных страниц утилита, она может быстро распечатать определенные страницы только по мере необходимости, например, печатать только нечетные / четные страницы, печатать только 5-12 страниц.

После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже Бесплатная загрузка Kutools for Excel Сейчас!)

Нажмите Кутулс Плюс > печать > Печать определенных страниц, и в появившемся диалоговом окне отметьте Нечетные страницы or Даже страницы вариант как вам нужно. Смотрите скриншот:

Нажмите Ok. а затем печатались только нечетные или четные страницы.

Внимание: Если вы хотите распечатать определенные страницы, например, страницу 2 — страницу 5, вы можете установить флажок «Пользовательский диапазон» и ввести 2–5 в текстовое поле. Смотрите скриншот:

Наконечник. Если вы хотите получить бесплатную пробную версию функции печати определенных страниц, пожалуйста, перейдите к бесплатной загрузке Kutools for Excel сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.

Распечатайте первую страницу каждого рабочего листа с помощью Kutools for Excel

Если в вашей открытой книге есть несколько листов и теперь вы хотите распечатать всю первую страницу каждого листа, в этом случае вы можете применить Распечатать первую страницу каждого рабочего листа полезности Kutools for Excel чтобы быстро это сделать.

После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже Бесплатная загрузка Kutools for Excel Сейчас!)

Включите книгу, которую вы хотите напечатать первую страницу каждого листа, и нажмите Кутулс Плюс > печать > Распечатать первую страницу каждого рабочего листа. Смотрите скриншот:

Затем печатаются все первые страницы каждого листа.

Относительные статьи:

• Как распечатать последнюю страницу первой в Excel?
• Как распечатать X строк на странице в Excel?

Последнее редактирование ответа: 19.06.2012

• 
  Оставить отзыв

  Оставить отзыв

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

  Если Вы хотите получить уведомление об
  исправлении ответа укажите свой e-mail:

  Неправильный формат адреса электронной почты

Отправить на печать только четные или только нечетные страницы документа очень важная функция. В программах пакета MS Office эта функция присутствует, но в последнее время люди с талкиваются с тем, что не могут ее найти. Сегодня мы и поговорим о том, где ее найти.

Начнем со старой знакомой версии MS Office 2003. Хотя в ней найти данную опцию не составляет никакого труда, на всякий случай я решил упомянуть и о ней. В MS Office 2003 диапазон настраивается в диалоговом окне печати, путем выбора соответствующего пункта в выпадающем списке пункта «Включить«. На выбор три пункта:

• Все страницы диапазона.
• Нечетные страницы
• Четные страницы

Теперь поговорим о MS Office 2010. Именно эта версия и вызывает затруднения. Как ни странно, но здесь данная опция также находится в опциях печати, просто не так бросается в глаза. Итак, открыв окно печати, нам необходим первый пункт после заглавия «Настройка«. Кликнув по нему, нам откроется список настроек печати документа. И вот здесь, последними строками идут строки «Напечатать нечетные страницы» и «Напечатать четные страницы«. Эти пункты необходимо отмечать, чтобы указать необходимый нам диапазон печати.

Вот так все просто.

———————————  
Attribute VB_Name = «PrintList»  
Private Sub ПечатьЧНС()  

  ‘*******************************************************  
‘ ПечатьЧНС  
‘ Макрос записан 17.01.1998  
‘ Автор Климов Павел Юрьевич  

  ‘

http://www.msoffice.nm.ru  

‘*******************************************************  

  Количество = ExecuteExcel4Macro(«GET.DOCUMENT(50)»)  

  If Количество = 0 Then  
  MsgBox Prompt:=»Нет данных для вывода на печать», _  
  Buttons:=vbCritical, Title:=»»  
  Exit Sub  
End If  

  Первый = Application.InputBox( _  
        Prompt:=»Введите номер первой страницы», _  
        Title:=»Печать», Type:=1)  
Последний = Application.InputBox( _  
        Prompt:=»Введите номер последней страницы», _  
        Title:=»Печать», Type:=1)  

  If Первый < 1 Or _  
  Первый > Количество Then Первый = 1  
If Последний < Первый Or _  
  Последний > Количество Then Последний = Количество  

  For Лист = Первый To Последний Step 2  
   Application.ActiveSheet.PrintOut From:=Лист, To:=Лист  
Next  

  If MsgBox(Prompt:=»Хотите ли Вы продолжить печать ?», _  
  Buttons:=vbYesNo, Title:=»») = vbNo Then  
  Exit Sub  
Else  
  MsgBox Prompt:=»Переверните листы и нажмите ‘ОК'», _  
  Buttons:=vbOKOnly, Title:=»»  
End If  

  For Лист = Первый + 1 To Последний Step 2  
   Application.ActiveSheet.PrintOut From:=Лист, To:=Лист  
Next  

  End Sub  
———————————

Вопрос для тех, кто приезжает в Москву 18-ого, идет в офис и планировал жить в отеле.

 нужно общее ваше решенеие! т.к. рейс нам перенесли на 6:45, то в аэропорту мы должны быть как минимум в 4:45
т.е. из Москвы в сторону аэропорта мы поедем последним экспрессом  в 00:00

 после офиса 18-ого,  унас будет ужин.

 ВОПРОС: оставлять ли мне бронь в гостиннице? просто логически подумать, в офисе мы будем с 2 до 6, потом ужин… еще время доехать до Киевской. вы до нее так и не доберетесь.

 Давайте общим голосование решим — оставлять ли ее или нет? 

 
Редактирование от KapralГолоса за «Гостиница не нужна»
Тетя Евдокия #17

overman #3

Pomka. #11

Oleg777 #16

 
Голоса которым лень читать все, несмотря на предупреждения 3х модераторов
neotrance #30
Голоса за «Хочу в гостиницу»

  ЗЫ. Остальные голосовали оценками к этому посту

Строгое предупреждение от модератора Elly

Посты не писать. Голосовать оценками к этому сообщению.