Sub 印刷プレビュー()
Activesheet.PrintPreview
End Sub

1. 「印刷プレビュー」というプログラム名を実行する
2. 表示されているシートの印刷プレビューを表示する
3. マクロ記録終了

Private Sub CommandButton1_Click()
Activesheet.PrintPreview
End Sub

1. コマンドボタン1がクリックされたら
2. 表示されているシートの印刷プレビューを表示する
3. マクロ記録終了

Private Sub CommandButton1_Click()
Unload UserForm1
Activesheet.PrintPreview
End Sub

1. コマンドボタン1がクリックされたら
2. ユーザーフォーム1を閉じる
3. 表示されているシートの印刷プレビューを表示する
4. マクロ記録終了

Private Sub CommandButton1_Click()
Worksheets(“Sheet1”).Range(“A1:I20”).PrintOut
End Sub

1. コマンドボタン１がクリックされたら
2. シート１のセルA1～I20の範囲を印刷する
3. マクロ記録終了

Private Sub CommandButton1_Click()
If Range(“A2”).Value = “” Then
MsgBox “宛名が入力されていません”
Else
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=1, COPIES:=1, COLLATE _
:=True
End If
End Sub

1. コマンドボタン１がクリックされたら
2. もしセルA2が空欄だったら
3. 「宛名が入力されていません」とメッセージを表示する
4. そうでなかったら（空欄ではない場合）
5. 表示しているシートを1ページ目～1ページ目までを1部印刷する
6. Ifステートメント終了
7. マクロ記録終了

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range(“A2”).Value = “” Then
MsgBox “宛名が入力されていません”
Cancel = True
End If
End Sub

1. エクセルファイルに含まれる内容を印刷する前に行う
2. もし、セルA2が空欄だったら
3. メッセージで「宛名が入力されてません」と表示
4. 印刷中止を実行する（印刷しない）
5. IFステートメント終了
6. マクロ記録終了

Private Sub CommandButton1_Click()
Select Case TextBox1
Case Is = 1
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=1, COLLATE _
:=True
Case Is = 2
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=2, COLLATE _
:=True
Case Is = 3
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=3, COLLATE _
:=True
End Select
End Sub

1. コマンドボタン1がクリックされたら
2. SelectCaseステートメント開始、テキストボックス１の値が
3. 1の場合
4. 表示されているシートを選んで1ページ目～2ページ目を1枚印刷する
5. 2の場合
6. 表示されているシートを選んで1ページ目～2ページ目を2枚印刷する
7. 3の場合
8. 表示されているシートを選んで1ページ目～2ページ目を3枚印刷する
9. SelectCaseステートメント終了
10. マクロ記録終了

Private Sub CommandButton1_Click()
If TextBox1.Value = “” Then
MsgBox “印刷枚数を入力してください”
Else
Select Case TextBox1
Case Is = 1
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=1, COLLATE _
:=True
Case Is = 2
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=2, COLLATE _
:=True
Case Is = 3
ActiveWindow.SelectedSheets.PrintOut FROM:=1, To:=2, COPIES:=3, COLLATE _
:=True
End Select
End If
End Sub

1. コマンドボタン1がクリックされたら
2. もしテキストボックス1が空欄だったら
3. 「印刷枚数を入力してください」とメッセージ表示する
4. そうでなかったら（空欄でない場合）
5. SelectCaseステートメント開始、テキストボックス１の値が
6. 1の場合
7. 表示されているシートを選んで1ページ目～2ページ目を1枚印刷する
8. 2の場合
9. 表示されているシートを選んで1ページ目～2ページ目を2枚印刷する
10. 3の場合
11. 表示されているシートを選んで1ページ目～2ページ目を3枚印刷する
12. SelectCaseステートメント終了
13. Ifステートメント終了
14. マクロ記録終了

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut FROM:=Sheets(“HOME”).Range(“BM2”).Value, To:=Sheets(“HOME”).Range(“BM3”).Value, COPIES:=1, COLLATE:=True
End Sub

1. コマンドボタン１をクリックしたら
2. 表示されているシートを印刷で、開始ページ数はシート「HOME」のセル「BM2」の値を開始ページ数にする
3. 終了ページ数はシート「HOME」のセル「BM3」の値を終了ページ数にして、印刷枚数１、部単位。
4. マクロ記述終了

Private Sub CommandButton1_Click()
msg = MsgBox(“レコードシートを印刷しますか？”, Buttons:=vbYesNo + vbQuestion)
If msg = vbYes Then
ActiveWindow.SelectedSheets.PrintOut FROM:=Sheets(“HOME”).Range(“BM2”).Value, To:=Sheets(“HOME”).Range(“BM3”).Value, COPIES:=1, COLLATE:=True
Else
Unload UserForm5
Sheets(“R”).Select
Range(“A1”).Select
MsgBox “15秒後に自動復帰します”
Application.OnTime Now + TimeValue(“00:00:15”), “RSTIME”
End If
End Sub

1. コマンドボタン１をクリックしたら
2. メッセージで「はい」「いいえ」を選択させる
3. 「はい」を押したら
4. 表示されているシートを印刷で、開始ページ数はシート「HOME」のセル「BM2」の値を開始ページ数にする
5. 終了ページ数はシート「HOME」のセル「BM3」の値を終了ページ数にして、印刷枚数は１、部単位
6. 「いいえ」を選択したら
7. UserForm5を閉じて
8. シート「R」を選択
9. セル「A1」選択
10. 「15秒後に自動復帰します」というメッセージを表示する
11. タイマー設定して15秒後に「RSTIME」というプログラムを作動させる
12. Ifステートメント終了
13. マクロ記録終了