Excelで超シンプルなはがき印刷ソフトを作ってみよう

'印刷の開始処理と終了処理
Private Sub ExPrintReady(sw As Boolean)
    Dim t As Object
    
    For Each t In Sheets("裏面印刷").Rectangles
        t.ShapeRange.Line.Visible = Not sw
    Next
End Sub


下記のコードに変更してください

Private Sub ExPrint(mode As Integer)
    Dim lrow As Long
    Dim n As Long
    
    n = 0
    If IsNumeric(Range("D4")) Then
        n = Range("D4")
    End If
    If n = 0 Then
        Beep
        MsgBox "印刷枚数を入力してください。"
        Exit Sub
    End If
    
    '印刷の開始処理
    ExPrintReady True
    
    
    '印刷の終了処理
    ExPrintReady False
End Sub