印刷を設定するVBAコード インボイス領収書5

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

Sub プリントページ設定()
    With Worksheets("インボイス領収書")
'上余白を0cmに設定
        .PageSetup.TopMargin = Application.CentimetersToPoints(0)
'右余白を0cmに設定
        .PageSetup.RightMargin = Application.CentimetersToPoints(0)
'左余白を0cmに設定
        .PageSetup.LeftMargin = Application.CentimetersToPoints(0)
'下余白を0cmに設定
        .PageSetup.BottomMargin = Application.CentimetersToPoints(0)
'ページ中央水平 ON
        .PageSetup.CenterHorizontally = True
'ページ中央垂直ON
        .PageSetup.CenterVertically = True
    End With
End Sub

Sub 一件を印刷()
        Call Module1.プリントページ設定
        Call Module1.インボイス領収書作成
        Worksheets("インボイス領収書").PrintOut from:=1, To:=2, _
                                                    Preview:=True
        Worksheets("発行データ入力").Select
End Sub

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

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