連続印刷機能のコード設計。印刷範囲設定や途中終了と停止

Private Sub アクティブプリンター_Click()
        宛名印刷設定.アクティブプリンター.Caption = _
                    Application.ActivePrinter
End Sub

Private Sub 宛名リスト表示_Click()
        Worksheets("宛名リスト").Select
End Sub

Private Sub 始点入力_Click()
        Call Module4.宛名始点選択
End Sub

Private Sub 始点クリア_Click()
        宛名印刷設定.宛名始点A.Caption = ""
        宛名印刷設定.宛名始点A.BackColor = &H8000000F
        shiR = 0
End Sub

Private Sub 終点入力_Click()
        Call Module4.宛名終点選択
End Sub

Private Sub 終点クリア_Click()
        宛名印刷設定.宛名終点A.Caption = ""
        宛名印刷設定.宛名終点A.BackColor = &H8000000F
        shuR = 0
End Sub

Private Sub 印刷範囲確認_Click()
        Worksheets("宛先").Select
        If 宛名印刷設定.宛名始点A.Caption = "" Then
           MsgBox "宛名始点が指定されていません。", vbOKOnly, _
                    "メッセージ"
           宛名印刷設定.印刷範囲1.Caption = ""
           Exit Sub
        End If
        If 宛名印刷設定.宛名終点A.Caption = "" Then
           MsgBox "宛名終点が指定されていません。", vbOKOnly, _
                    "メッセージ"
           宛名印刷設定.印刷範囲1.Caption = ""
           Exit Sub
        End If
        宛名印刷設定.印刷範囲1.Caption = "「" & 宛名印刷設定 _
            .宛名始点A.Caption & "」から「" & 宛名印刷設定 _
            .宛名終点A.Caption & "」まで"
        宛名印刷設定.印刷範囲2.Caption = Abs(shuR - shiR) + 1 _
            & "件分を印刷します。"
        Call Module4.連続印刷PV
End Sub

Private Sub 連続印刷_Click()
        Call Module4.連続印刷開始
End Sub

Option Explicit
    
    Public STY As Variant
    Public shiR, shuR As Long
    Dim SOrder, EXT As Long

Sub 宛名始点選択()
        Worksheets("宛名リスト").Select
        宛名印刷設定.宛名始点A.Caption = Range("B" & ActiveCell.Row)
        宛名印刷設定.宛名始点A.BackColor = &HFFFFC0
        shiR = ActiveCell.Row
End Sub

Sub 宛名終点選択()
        Worksheets("宛名リスト").Select
        宛名印刷設定.宛名終点A.Caption = Range("B" & ActiveCell.Row)
        宛名印刷設定.宛名終点A.BackColor = &HFFFFC0
        shuR = ActiveCell.Row
End Sub

Sub 連続印刷PV()
        STY = 宛名印刷設定.TP_no.Caption
            If STY = "" Then
                MsgBox "封筒サイズが指定されていません。" _
                    , vbOKOnly, "封筒宛名印刷"
                Exit Sub
            End If
        EXT = 0
        If shuR >= shiR Then
            For SOrder = shiR To shuR
                Call Module4.連続印刷PVコア
                If EXT = 1 Then Exit Sub
            Next SOrder
        ElseIf shuR < shiR Then
            For SOrder = shiR To shuR Step -1
                Call Module4.連続印刷PVコア
                If EXT = 1 Then Exit Sub
            Next SOrder
        End If
End Sub

Sub 連続印刷PVコア()
    Dim ans As Integer
        Worksheets("宛名リスト").Select
        Cells(SOrder, 2).Select
        Call Module1.単独印刷
        Call Module1.発送便記入
        ans = MsgBox("プレビュー画面に切替えしますか？" & vbCrLf & _
            "「はい」は実行" & vbCrLf & "「いいえ」はスキップ" _
            & vbCrLf & "「キャンセル」は終了" & vbCrLf & "　" _
            & vbCrLf & "プレビュー画面の「プレビューを閉じるボタン」" _
            & "で次に移ります。", vbYesNoCancel + vbQuestion, "封筒宛名印刷")
        If ans = vbYes Then
            Worksheets("宛先").PrintPreview
        ElseIf ans = vbNo Then
            MsgBox "スキップします。", vbInformation, "封筒宛名印刷"
            Exit Sub
        Else
            MsgBox "終了します。", vbInformation, "封筒宛名印刷"
            EXT = 1
            Exit Sub
        End If
End Sub

Sub 連続印刷開始()
        Worksheets("宛名リスト").Select
        STY = 宛名印刷設定.TP_no.Caption
        EXT = 0
        If STY = "" Then
            MsgBox "封筒サイズが指定されていません。", _
                vbOKOnly, "封筒宛名印刷"
            Exit Sub
        End If
        If shuR >= shiR Then
            For SOrderp = shiR To shuR
                Call Module4.連続印刷開始コア
                If EXT = 1 Then Exit Sub
            Next SOrderp
        ElseIf shuR < shiR Then
            For SOrderp = shiR To shuR Step -1
            Call Module4.連続印刷開始コア
            If EXT = 1 Then Exit Sub
        Next SOrderp
    End If
End Sub

Sub 連続印刷開始コア()
    Dim ans As Integer
        If EXT = 2 Then GoTo step1
        ans = MsgBox("印刷を開始してよろしいですか？" & vbCrLf & _
            "「はい」は実行。途中停止は出来ません。" & vbCrLf & _
            "「いいえ」は印刷を実行しません。" & vbCrLf & _
            "「キャンセル」はこのメッセージを以降表示しません。" _
            , vbYesNoCancel + vbQuestion, "封筒宛名印刷")
        If ans = vbNo Then
            MsgBox "印刷を中止します。", vbInformation, "封筒宛名印刷"
            EXT = 1
            Exit Sub
        ElseIf ans = vbCancel Then
            EXT = 2
        End If
step1:
        Worksheets("宛名リスト").Select
        Cells(SOrderp, 2).Select
        Call Module1.単独印刷
        Call Module1.発送便記入
        Worksheets("宛先").PrintOut
End Sub