[решено] Печать чётных и не чётных страниц в excel 2010

[sov44]

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

[Iska]

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

[sov44]

макросом попробовать — чётные/нечётные? »
Iska, с excel я пока на вы. С написанием макросов не знаком.

[Iska]

Наподобие (не проверялось):
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

[sov44]

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

[Iska]

Приходится в каждом документе создавать макрос, как сделать так, чтобы функция печати не чётных и чётных страниц была во всех документах excel? »
Copy your macros to a Personal Macro Workbook - Excel (http://office.microsoft.com/en-001/excel-help/copy-your-macros-to-a-personal-macro-workbook-HA102174076.aspx)

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

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

Пример для типичного лазерного принтера, с прямой печатью нечётных страниц и обратной печатью чётных страниц:
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. Так там пришлось ажник в четыре прохода делать печать.

[Iska]

Из письма в PM:
Привет! Образцы файлов excel здесь была ссылка, OS- Windows XP SP3 x86, принтер MF3110, печатаю по сети. Надеюсь на помощь!
Опробовал вышеприведённый код:
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
На Ваших документах превьюшки отображаются именно в том порядке, в каком я выше описывал (для прямой печати (без превью) достаточно убрать выделенное). Т.е., порядок печати, скажем, на первом из документов таков:
1, 3, 5, …, 121, 123, 125
Затем следует сообщение о развороте листов, и порядок печати следующий:
126, 124, 122, …, 6, 4, 2

В случае документа с нечётным количеством печатных страниц, например, 59 — должно быть следующее. Первый проход:
1, 3, 5, …, 55, 57, 59
Затем сообщение о развороте листов и снятии верхнего листа из стопки, порядок печати на втором проходе следующий:
58, 56, 54, …, 6, 4, 2
т.е., по количеству — на одну страницу меньше, нежели в первом проходе.