[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

Из 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

т.е., по количеству — на одну страницу меньше, нежели в первом проходе.