Macro Code — VBA | Office X Batten

Contents

Macro Code = VBA
1. それでもmacroは動く　Op 1

Macro Code = VBA

それでもmacroは動く　Op 1

Sub 選択したシートの1ページのみを1枚だけプリントアウト()

    If MsgBox( _
        "プリンターは接続されていますか？" & vbCrLf & vbCrLf & _
        "印刷を開始する場合は「はい」を押してください。", _
        vbYesNo + vbQuestion, _
        "プリンターの確認") = vbNo Then

        MsgBox "印刷を中止しました。", _
               vbInformation, _
               "印刷中止"

        Exit Sub

    End If

    ActiveWindow.SelectedSheets.PrintOut _
        From:=1, _
        To:=1, _
        Copies:=1, _
        Collate:=True, _
        IgnorePrintAreas:=False

End Sub