Макрос для печати четных и нечетных страниц с разными полями

Пользователь

Сообщений: 1 Регистрация: 30.01.2024

30.01.2024 18:00:00

Добрый день, нужен макрос для печати четных и нечетных страниц с разными полями. Есть такой, но он печатает все листы как четные. Я плохо разбираюсь в кодах и вообще не пойму как его исправить. Помогите, пожалуйста!

Код

Sub PrintActiveSheet()
Dim ws As Worksheet
Dim oddPages As Boolean
Set ws = ActiveSheet
oddPages = False

With ws.pageSetup
    .TopMargin = Application.InchesToPoints(0.393700787401575)
    .BottomMargin = Application.InchesToPoints(0.393700787401575)
End With

If ws.Index Mod 2 = 0 Then
    With ws.pageSetup
        .LeftMargin = Application.InchesToPoints(0.196850393700787)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
    End With
Else
    With ws.pageSetup
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
    End With
End If

ws.PrintOut
End Sub

DJMC

Пользователь

Сообщений: 549 Регистрация: 06.05.2020

31.01.2024 12:58:19

как то так

Код

Sub Print_Odd_Even()
Dim Totalpages As Long
Dim StartPage As Long
Dim Page As Integer
StartPage = 1 ' Задайте 1 = для Нечетных или 2 - для Четных
' Или используйте диалог для ввода
'StartPage = InputBox("Ввведите 1 для печати нечетных страниц, 2 - для четных")
Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For Page = StartPage To Totalpages Step 2
ActiveSheet.PrintOut from:=Page, To:=Page
Next
End Sub

Изменено: DJMC - 31.01.2024 12:58:39