EXCEL2010で、プリンタを選択するダイアログを表示するマクロの記述についてですが、
Dim xPrt As String
With Application
xPrt = .ActivePrinter
.Dialogs(xlDialogPrinterSetup).Show
End With
を実行したら、表示されたダイアログにキャンセルのボタンがあったのでクリックしたところ、OKのボタンと同じように印刷が始まってしまいました。
キャンセルしたらマクロが終了するようにしたいのですが、どのような記述が必要でしょうか?
ご指導のほど、よろしくお願い致します。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは。
たぶん、こういうことで良いと思います。
'//
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
- 回答日時:
If Not Application.Dialogs(xlDialogPrinterSetup).Show Then
MsgBox "キャンセルしました。"
Exit Sub
End If
'MsgBox Application.ActivePrinter & "を選択しました。"
'印刷処理
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/07 08:37
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
友人と2人で行くはずの旅行を...
-
友人(4人)との旅行当日体調不...
-
当日キャンセルした飲み会のキ...
-
脱毛の予約をサロンの都合でキ...
-
急に旅行に行けないかもしれな...
-
旅行のキャンセル料について相...
-
社員旅行、体調不良でドタキャ...
-
タイミーで応募キャンセルされ...
-
当日キャンセルしてしまった美...
-
強制出張と旅行が被った場合の...
-
飲み会を当日キャンセルしたん...
-
裏DVD
-
「参考になった」キャンセル方法
-
2回連続ママ友にドタキャンされ...
-
お葬式で旅行がキャンセルに
-
注文のキャンセル申し出は拒否...
-
confirm の OK、キャンセル ...
-
旅行前に友達と喧嘩をしました...
-
当日キャンセル料の請求について
-
ACCESSの上書き保存
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「参考になった」キャンセル方法
-
お葬式で旅行がキャンセルに
-
友人と2人で行くはずの旅行を...
-
タイミーで応募キャンセルされ...
-
友人(4人)との旅行当日体調不...
-
通販でキャンセルした商品が届...
-
2回連続ママ友にドタキャンされ...
-
裏DVD
-
至急!詐欺の可能性がある裏DVD...
-
当日キャンセル料の請求について
-
飲食店で注文後にキャンセルは
-
当日キャンセルした飲み会のキ...
-
飲み会を当日キャンセルしたん...
-
急に旅行に行けないかもしれな...
-
当日キャンセルしてしまった美...
-
旅行のキャンセル料について相...
-
美容室でのネット予約を2日くら...
-
占いできる方お願いします!
-
強制出張と旅行が被った場合の...
-
Application.Dialogs(xlDialogS...
おすすめ情報