Как в эксель напечатать четные и нечетные страницы

Как в эксель напечатать четные и нечетные страницы

Argument ‘Topic id’ is null or empty

Сейчас на форуме

© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru

Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.

ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949

ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071

покупка

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

Как мы все знаем, мы можем печатать нечетные или четные страницы только в Word 2013 в разделе «Печать», как показано ниже. Однако в функции печати Excel нет возможности распечатать четные или нечетные страницы. Но здесь я могу представить код, который может печатать только нечетные или четные страницы в Excel по мере необходимости.

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

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

1. Включите лист, на котором вы хотите распечатать нечетные или четные страницы, и нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложенийокно s.

2. Нажмите Вставить > модульe и вставьте приведенный ниже код в сценарий модуля. Смотрите скриншот:

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

Sub Odd_Even_Print() 'UpdatebyExtendoffice20160901 Dim xTotalPages As Long Dim xStartPage As String Dim xPage As Integer, xYesorNo Application.ScreenUpdating = False xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel") If xStartPage = "" Then Exit Sub xTotalPages = ActiveSheet.PageSetup.Pages.Count xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel") If xYesorNo = vbYes Then For xPage = Int(xStartPage) To xTotalPages Step 2 ActiveSheet.PrintOut from:=xPage, To:=xPage Next Else Exit Sub End If Application.ScreenUpdating = True End Sub

3. Нажмите F5 нажмите клавишу, чтобы запустить код, и появится диалоговое окно для выбора печати нечетных или четных страниц, введите 1 распечатать нечетные страницы, 2 для четных страниц. Смотрите скриншот:

4. Нажмите OK, и появится другое диалоговое окно, чтобы убедиться, хотите ли вы печатать. Смотрите скриншот:

5. Нажмите Да продолжить печать. И тогда распечатываются только нечетные или четные страницы активного листа.

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

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

После бесплатная установка Kutools for Excel, сделайте следующее:

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

Наконечник:

1. Если вы хотите напечатать произвольный диапазон страниц, например, страницы 1,3,5, 9, 12 и страницы с XNUMX по XNUMX, вам нужно только проверить Пользовательский диапазон вариант и введите вот так:

2. Вы также можете установить копии печати.

3. Если вы хотите печатать страницы в обратном порядке, установите флажок Печатать в обратном порядке.

Как в эксель напечатать четные и нечетные страницы

Сообщения: 2177
Благодарности: 718

Конфигурация компьютера
Процессор: AMD FX 8300
Материнская плата: Gigabyte GA-970A-UD3
Память: 2х2 Гб Kingston DDR3-1333, 2х4 Гб Kingston DDR3-1333
HDD: 250Гб(SSD Samsung 860EVO) +500Гб(ST3500418AS)+2000Гб(ST2000DM001)
Видеокарта: Nvidia GeForce GTX 1050 Ti
Блок питания: Be Quiet SYSTEM POWER 9 500W [BN246]
CD/DVD: Optiarc DVD RW AD-5280S
Монитор: Dell UltraSharp U2414Hb
ОС: Windows 10 x64

Для экономии бумаги нужно распечатать документ excel 2010 на обеих страницах. В word эта функция присутствует, в excel к сожалению этой функции не нашел.
В гугле есть вариант по переводу *.xlsx в *.pdf, распечатывать чётные и не чётные страницы просмотрщиком *.pdf.
Возможно есть иной способ?

Сообщения: 27449
Благодарности: 8086

sov44, ну, а макросом попробовать — чётные/нечётные?

Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Сообщения: 2177
Благодарности: 718

Конфигурация компьютера
Процессор: AMD FX 8300
Материнская плата: Gigabyte GA-970A-UD3
Память: 2х2 Гб Kingston DDR3-1333, 2х4 Гб Kingston DDR3-1333
HDD: 250Гб(SSD Samsung 860EVO) +500Гб(ST3500418AS)+2000Гб(ST2000DM001)
Видеокарта: Nvidia GeForce GTX 1050 Ti
Блок питания: Be Quiet SYSTEM POWER 9 500W [BN246]
CD/DVD: Optiarc DVD RW AD-5280S
Монитор: Dell UltraSharp U2414Hb
ОС: Windows 10 x64

Цитата Iska:

макросом попробовать — чётные/нечётные? »

Iska, с excel я пока на вы. С написанием макросов не знаком.

Сообщения: 27449
Благодарности: 8086

Наподобие (не проверялось):

Option Explicit Sub PrintOdd() Dim i As Integer With ActiveSheet For i = 1 To (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1) Step 2 .PrintOut From:=i, To:=i Next End With End Sub Sub PrintEven() Dim i As Integer With ActiveSheet For i = 2 To (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1) Step 2 .PrintOut From:=i, To:=i Next End With End Sub

Последний раз редактировалось Iska, 16-04-2014 в 19:06 . Причина: Убрано лишнее (добавил «With ActiveSheet», а внутри него этот самый «ActiveSheet» позабыл убрать ;)).

Это сообщение посчитали полезным следующие участники:

Сообщения: 2177
Благодарности: 718

Конфигурация компьютера
Процессор: AMD FX 8300
Материнская плата: Gigabyte GA-970A-UD3
Память: 2х2 Гб Kingston DDR3-1333, 2х4 Гб Kingston DDR3-1333
HDD: 250Гб(SSD Samsung 860EVO) +500Гб(ST3500418AS)+2000Гб(ST2000DM001)
Видеокарта: Nvidia GeForce GTX 1050 Ti
Блок питания: Be Quiet SYSTEM POWER 9 500W [BN246]
CD/DVD: Optiarc DVD RW AD-5280S
Монитор: Dell UltraSharp U2414Hb
ОС: Windows 10 x64

Iska, не получается победить макрос.
Приходится в каждом документе создавать макрос, как сделать так, чтобы функция печати не чётных и чётных страниц была во всех документах excel?
Из 4 страниц при запуске PrintOdd печатается первая страница, при запуске PrintEven печатается 2 и 4. Третья страница теряется, проверял пару раз. (не исключаю, что это локальная проблем с железом) Приходится вручную переворачивать каждую страницу, что не есть гут (нужно распечатывать документы до 200 страниц). Рассчитывал, что макрос напечатает сначала все нечётные страницы, я переложу пачку бумаги обратно в лоток, макрос напечатает все чётные страницы .

Последний раз редактировалось sov44, 17-04-2014 в 18:31 .

Сообщения: 27449
Благодарности: 8086

Цитата sov44:

Приходится в каждом документе создавать макрос, как сделать так, чтобы функция печати не чётных и чётных страниц была во всех документах excel? »

Цитата sov44:

Из 4 страниц при запуске PrintOdd печатается первая страница, »

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

Цитата sov44:

Рассчитывал, что макрос напечатает сначала все нечётные страницы, я переложу пачку бумаги обратно в лоток, макрос напечатает все чётные страницы . »

Основной вопрос в конкретно взятом принтере — как он раскладывает отпечатанные листы. Потому я привёл лишь общий принцип печати нечётных и чётных страниц.

Пример для типичного лазерного принтера, с прямой печатью нечётных страниц и обратной печатью чётных страниц:

Option Explicit Sub PrintOddAndEven() Dim i As Integer With ActiveSheet For i = 1 To ExecuteExcel4Macro("Get.Document(50)") Step 2 Debug.Print i .PrintOut From:=i, To:=i, Copies:=1, Preview:=True Next If (ExecuteExcel4Macro("Get.Document(50)")) Mod 2 = 1 Then MsgBox "Replace paper into printer to print even pages and remove topsheet", vbInformation + vbOKOnly, "Print even pages" Else MsgBox "Replace paper into printer to print even pages", vbInformation + vbOKOnly, "Print even pages" End If For i = ExecuteExcel4Macro("Get.Document(50)") To 2 Step -2 Debug.Print i .PrintOut From:=i, To:=i, Copies:=1, Preview:=True Next End With End Sub

При общем нечётном числе страниц требуется «ручками» убрать верхний лист (с последней нечётной страницей) после первого прохода (печати нечётных страниц), о чём делается соответствующее уведомление .

В принципе, можно сделать очень многое, если вертеть в руках достаточно долго очень захотеть. Несколько лет назад я делал вариант печати брошюры A5 на листах формата A4 из-под Microsoft Access. Так там пришлось ажник в четыре прохода делать печать.

Печать документа Word на обеих сторонах листа (двусторонняя печать)

Двузадачная печать на обеих сторонах листа называется двунабной печатью. Большинство принтеров предлагают автоматическую печать на обеих сторонах листа (автоматическая двуплексная печать). Другие принтеры выводят указания о том, как перевернуть страницы вручную, чтобы напечатать текст на обратной стороне листа (двусторонняя печать вручную). Сначала выясните у руководства или изготовителя принтера, можно ли печатать на обеих сторонах бумаги (двупроизводивную печать).

Определение того, поддерживает ли принтер автоматическую двустороннюю печать

Узнать, поддерживает ли ваш принтер двустороннюю печать, можно из его руководства пользователя или у изготовителя. Кроме того, можно сделать следующее:

1. Откройте вкладку Файл.
2. Нажмите кнопку Печать.
3. В разделе Параметры щелкните Односторонняя печать. Если значение Двусторонняя печать доступно, ваш принтер настроен для двусторонней печати.

• Если вы используете принтер, совмещенный с копировальным аппаратом, а копировальный аппарат поддерживает двустороннее копирование, то принтер, вероятно, поддерживает автоматическую двустороннюю печать.
• Если установлено несколько принтеров, то возможно, что один из них поддерживает двустороннюю печать, а другой — нет.

Настройка принтера для печати на обеих сторонах листа бумаги

Если ваш принтер не поддерживает автоматическую двустороннюю печать, существует два возможных способа печати. Вы можете выполнить двустороннюю печать вручную или напечатать отдельно нечетные и четные страницы.

Двусторонняя печать вручную

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

В Word сделайте следующее:

1. Откройте вкладку Файл.
2. Нажмите кнопку Печать.
3. В разделе Параметры щелкните Односторонняя печать и выберите Печать вручную на обеих сторонах. Во время печати Word предложит вам перевернуть стопку и снова загрузить страницы в принтер.

Примечание: Рекомендуется выполнить пробную печать, чтобы определить, как правильно подавать страницы в принтер.

Печать четных и нечетных страниц

Для печати на обеих сторонах листа можно также сделать следующее:

1. Откройте вкладку Файл.
2. Нажмите кнопку Печать.
3. В разделе Параметры щелкните Напечатать все страницы. В нижней части коллекции выберите Напечатать только нечетные страницы.
4. Нажмите кнопку Печать в верхней части коллекции.
5. После того как нечетные страницы будут напечатаны, переверните стопку, а затем в разделе Параметры щелкните Напечатать все страницы. В нижней части коллекции выберите Напечатать только четные страницы.
6. Нажмите кнопку Печать в верхней части коллекции.

Примечание: Чтобы печатать четные и нечетные страницы в правильном порядке, щелкните Файл, Параметры, Дополнительно и в разделе Печать установите переключатель Печатать на лицевой стороне листа при двусторонней печати или Печатать на обратной стороне листа при двусторонней печати.

Важно: Office 2007 больше не поддерживается. Перейдите на Microsoft 365, чтобы работать удаленно с любого устройства и продолжать получать поддержку.

Определение того, поддерживает ли принтер автоматическую двустороннюю печать

Чтобы определить, поддерживает ли конкретный принтер двустороннюю печать, сделайте следующее:

• Просмотрите руководство к принтеру или проконсультируйтесь у его изготовителя.
• В Microsoft Office Word нажмите кнопку Microsoft Office , нажмитекнопку Печать , выберите свойства ,а затем щелкните вкладки в диалоговом окне Свойства документа и просмотрите параметры. Параметры в диалоговом окне Свойства документа зависят от возможностей принтера и его конфигурации. Если на каких-либо вкладках вы видите параметры для печати на обеих сторонах листа, двусторонней печати или печати с оборотом, то принтер, вероятно, поддерживает автоматическую двустороннюю печать.

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

• Если вы используете принтер, совмещенный с копировальным аппаратом, а копировальный аппарат поддерживает двустороннее копирование, то принтер, вероятно, поддерживает автоматическую двустороннюю печать.
• Если установлено несколько принтеров, то возможно, что один из них поддерживает двустороннюю печать, а другой — нет.

Настройка принтера для печати на обеих сторонах листа бумаги

Если ваш принтер не поддерживает автоматическую двустороннюю печать, существует два возможных способа печати. Вы можете выполнить двустороннюю печать вручную или напечатать отдельно нечетные и четные страницы.

Двусторонняя печать вручную

Если ваш принтер не поддерживает автоматическую двустороннюю печать, вы можете установить флажок Двусторонняя печать в диалоговом окне Печать. Microsoft Office Word напечатает все страницы, которые должны быть на одной стороне листа, после чего предложит перевернуть стопку и снова загрузить ее в принтер.

Печать четных и нечетных страниц

Для печати на обеих сторонах листа можно также сделать следующее:

1. Нажмите кнопку Microsoft Office , а затем — Печать.
2. В левом нижнем углу диалогового окна Печать в списке Включить выберите Нечетные страницы.
3. Нажмите кнопку ОК.
4. После того как нечетные страницы будут напечатаны, переверните стопку, а затем в списке Включить выберите Четные страницы.
5. Нажмите кнопку ОК.

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