マクロでプリンタの選択

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

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

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

No.2 回答者： WindFaller 回答日時： 2015/01/26 16:39

こんにちは。

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

'//
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
'//

No.1 回答者： watabe007 回答日時： 2015/01/26 16:32

If Not Application.Dialogs(xlDialogPrinterSetup).Show Then

　　MsgBox "キャンセルしました。"
　　Exit Sub
End If
'MsgBox Application.ActivePrinter & "を選択しました。"
'印刷処理