[[20070705181805]]　『印刷時にメッセージ選択して実行』（ぷぷぷ）　ページの最後に飛ぶ

『印刷時にメッセージ選択して実行』（ぷぷぷ）

お世話になってます。WindowsXP,Excel2000です。誰か教えて下さい。下記のようなマクロを登録してみたのですが。。。

Sub 印刷()

    タイトル = "選択"
    メッセージ = "印刷しますか？"
    スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
        yesno = MsgBox(メッセージ, スタイル, タイトル)
        If yesno = vbYes Then
        Application.Dialogs(xlDialogPrint).Show
        End If
End Sub

ただ、NOを選んだ場合はプレビューを表示してＯＫだったら印刷できるように、YesとNo以外にキャンセルボタンも追加…という形にしたいのですが組み合わせが出来ません。
過去ログから調べてみたのですがちょっと分かりかねます。
誰か教えて頂けたら幸いです。

 ElseIf yesno = vbNo Then
     Code
 Else または ElseIf yesno = False Then
     Code
 End If
 では？
 (seiya)

(seiya)さん、ありがとうございます。ごめんなさい。どこからどう貼って良いか分かりません…。

 Application.Dialogs(xlDialogPrint).Show
 ElseIf yesno = vbNo Then
    'No の時のコード
 Else (または、ElseIf yesno = False Then)
    'その他（または x ボタンが押された時）のコード
 End If
 こんな感じで続けてやればよいのでは？
 (seiya)

(seiya)さん

 出来ました！返事遅くなってすみません。ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20070705181805]] 『印刷時にメッセージ選択して実行』（ぷぷぷ） ページの最後に飛ぶ

[[20070705181805]]　『印刷時にメッセージ選択して実行』（ぷぷぷ）　ページの最後に飛ぶ