マクロでプリンタの選択

質問

EXCEL2010で、プリンタを選択するダイアログを表示するマクロの記述についてですが、

Dim xPrt As String
With Application
xPrt = .ActivePrinter
.Dialogs(xlDialogPrinterSetup).Show
End With

を実行したら、表示されたダイアログにキャンセルのボタンがあったのでクリックしたところ、OKのボタンと同じように印刷が始まってしまいました。
キャンセルしたらマクロが終了するようにしたいのですが、どのような記述が必要でしょうか？
ご指導のほど、よろしくお願い致します。

回答No.1

watabe007 · ベストアンサー

If Not Application.Dialogs(xlDialogPrinterSetup).Show Then
　　MsgBox "キャンセルしました。"
　　Exit Sub
End If
'MsgBox Application.ActivePrinter & "を選択しました。"
'印刷処理

お礼

出来ました！
迅速な回答、ありがとうございました。

回答No.2

WindFaller

こんにちは。

たぶん、こういうことで良いと思います。

'//
Sub Test1()
Dim xPrt As String
Dim ret As Variant
With Application
　xPrt = .ActivePrinter
　ret = .Dialogs(xlDialogPrinterSetup).Show
　If ret = False Then Exit Sub
End With
End Sub
'//

お礼

出来ました！
迅速な回答、ありがとうございました。