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

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

スポンサーリンク



実行結果

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

スポンサーリンク





メニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved