[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