超シンプルなはがき印刷ソフトを作ってみよう　Step 10　裏面印刷に「印刷」「中止」ボタンの追加

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

Step 10　裏面印刷に「印刷」「中止」ボタンの追加

シートコード

下記のコードを追加してください

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

実行結果

	イラスト、文字等は自由にレイアウトしてください。シェイプの枠線は次のステップで消します。

Topへ