ユーザーフォームのVBAで領収書の印刷をコントロールする方法

Private Sub Worksheet_Activate()
        If コントロールパネル.Visible Then Exit Sub
        コントロールパネル.Show vbModeless
End Sub

Private Sub 日付入力_Click()
        Gen = コントロールパネル.Controls("元号").Value
        Nen = コントロールパネル.Controls("ねん").Value
        Tuk = コントロールパネル.Controls("つき").Value
        Nit = コントロールパネル.Controls("にち").Value
End Sub

    Public Gen As String
    Public Nen As Variant
    Public Tuk As Variant
    Public Nit As Varian

    If Nen = "" Then Nen = "  "
    If Tuk = "" Then Tuk = "  "
    If Nit = "" Then Nit = "  "
    Range("B" & aR).Value = Gen & Nen & "年" & Tuk & "月" & Nit & "日"
    Range("H" & aR).Value = "済"

Private Sub 印刷宛名_Click()
        宛名確認
End Sub

Sub 宛名確認()
    Dim PVa As String
        Worksheets("発行データ入力").Select
        aR = ActiveCell.Row
        PVa = Range("D" & aR).Value
        コントロールパネル.印刷宛名.Caption = PVa
End Sub

Private Sub 一件印刷_Click()
        一件を印刷
End Sub

Sub 一件を印刷()
        Call 領収書作成
        Worksheets("領収書").PrintOut from:=1, To:=2, Preview:=True
        Worksheets("発行データ入力").Select
End Sub

Private Sub 入力確認ボタン_Click()
        If コントロールパネル.Controls("伝票番号始点") _
                                        .Value = "" Then
           MsgBox "印刷開始伝票番号がありません。", _
                                    vbOKOnly, "メッセージ"
           Exit Sub
        End If
        If コントロールパネル.Controls("伝票番号終点") _
                                        .Value = "" Then
           MsgBox "印刷終了伝票番号がありません。", _
                                    vbOKOnly, "メッセージ"
           Exit Sub
        End If
        コントロールパネル.番号確認.Caption = _
            Me.伝票番号始点.Value & "から" & _
            Me.伝票番号終点.Value & "まで印刷します。"
        Call 領収書連続印刷準備
End Sub

  Public STA As Long
  Public STO As Long
  Public Arow As Variant
  Public Orow As Variant
  Public ErrNo As Long

Sub 領収書連続印刷準備()
        ErrNo = 0
        STA = コントロールパネル.伝票番号始点.Value
        STO = コントロールパネル.伝票番号終点.Value
        Worksheets("発行データ入力").Select
        On Error GoTo Err_trap1
        Arow = WorksheetFunction.Match(STA, Range("A:A"), 0)
       
        On Error GoTo Err_trap2
        Orow = Application.WorksheetFunction _
                                .Match(STO, Range("A:A"), 0)
        If Arow > Orow Then
           MsgBox "伝票番号は昇順で指定してください。" _
                                        , vbYes, "メッセージ"
           Exit Sub
        End If
        Exit Sub
Err_trap1:
        MsgBox "印刷開始伝票番号が存在していません。" _
                                        , vbYes, "メッセージ"
        コントロールパネル.伝票番号始点.Value = ""
        コントロールパネル.伝票番号終点.Value = ""
        ErrNo = 1
        Exit Sub
Err_trap2:
        MsgBox "印刷終了伝票番号が存在していません。" _
                                        , vbYes, "メッセージ"
        コントロールパネル.伝票番号始点.Value = ""
        コントロールパネル.伝票番号終点.Value = ""
        ErrNo = 1
End Sub

Private Sub 印刷開始_Click()
        rea = MsgBox("印刷を始めますか？", vbYesNo + _
                vbQuestion + vbDefaultButton2, "メッセージ")
        If rea = vbNo Then Exit Sub
        If コントロールパネル.Controls("伝票番号始点") _
                                            .Value = "" Then
           MsgBox "印刷開始伝票番号がありません。" _
                                    , vbOKOnly, "メッセージ"
           Exit Sub
        End If
        コントロールパネル.番号確認.Caption = _
                    Me.伝票番号始点.Value & "から" & _
                    Me.伝票番号終点.Value & "まで印刷します。"
        If コントロールパネル.Controls("伝票番号終点") _
                                                .Value = "" Then
           MsgBox "印刷終了伝票番号がありません。" _
                                        , vbOKOnly, "メッセージ"
           Exit Sub
        End If
        コントロールパネル.番号確認.Caption = _
                    Me.伝票番号始点.Value & "から" & _
                    Me.伝票番号終点.Value & "まで印刷します。"
        Call 領収書連続印刷実行
        コントロールパネル.番号確認.Caption = ""
End Sub

Sub 領収書連続印刷実行()
    Call 領収書連続印刷準備
    If ErrNo = 1 Then Exit Sub
    For n = Arow To Orow
        Worksheets("発行データ入力").Select
        Range("A" & n).Select
        領収書作成
        Worksheets("領収書").PrintOut from:=1, To:=2
    Next n
    Worksheets("発行データ入力").Select
    コントロールパネル.伝票番号始点.Value = ""
    コントロールパネル.伝票番号終点.Value = ""

End Sub