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

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
End Sub

'印刷プレビュー
Private Sub CommandButton1_Click()
    ExPrint 0
End Sub

'印刷
Private Sub CommandButton2_Click()
    ExPrint 1
End Sub