Sub 홀수짝수인쇄()

    Dim 전체페이지  As Integer
    Dim 시작페이지 As Integer
    Dim i As Integer
    Dim 메시지 As String
    
    메시지 = "홀/짝수 인쇄 작업을 진행합니다." & vbCr & vbCr
    메시지 = 메시지 & "짝수 페이지를 인쇄하려면 <예>버튼을," & vbCr
    메시지 = 메시지 & "홀수 페이지를 인쇄하려면 <아니오> 버튼을 눌러 주세요!"
    
    전체페이지 = ExecuteExcel4Macro("Get.Document(50)")
    
    If 전체페이지 > 0 Then
        
        Select Case MsgBox(메시지, vbYesNoCancel + vbInformation, "홀/짝수 인쇄")
        
            Case vbYes: 시작페이지 = 2
            Case vbNo: 시작페이지 = 1
            Case vbCancel: Exit Sub
        
        End Select
    
        For i = 시작페이지 To 전체페이지 Step 2
            
            ActiveSheet.PrintOut From:=i, To:=i
            
        Next
    
    End If

End Sub
