2019年5月7日プリンター選択のダイアログボックスを表示する方法VBAで印刷処理するときにプリンターの選択をしたいときはありませんか?Worksheet("Sheet1").PrintOut1Worksheet("Sheet1").PrintOutこのような処理をした時にはプリンターは【通常使うプリンター】で印刷されるかと思います。個人での使用でならさすがに複数のプリンターを使い分けている人はあまりいないと思いますが。オフィスではインクジェットやレーザープリンターなどを使い分けている会社様も多いのではないでしょうか?今回はそのような時に使えるダイアログボックスをご紹介します。印刷の設定はこちらE-VBAVBAで印刷を操作する方法1【印刷・用紙サイズ・印刷向き】VBAで印刷を操作する方法1【印刷・用紙サイズ・印刷向き】VBAで印刷を操作する方法1【印刷・用紙サイズ・印刷向き】という事で、VBAで印刷というのもあまりないかもしれ...ダイアログボックスの表示ではさっそくダイアログボックスを表示するコードのご紹介をしていきます。プリンター一覧を表示するダイアログボックスを表示するにはApplicationオブジェクトのDialogsプロパティを使用します。ボックスの種類を指定するDialogsの引数には(xlDialogPrinterSetup)を指定します。コードにするとこのような形になります↓Application.Dialogs(xlDialogPrinterSetup).Show1Application.Dialogs(xlDialogPrinterSetup).Showこのコードを実行するとこのようなダイアログボックスが表示されます。このダイアログボックスにはExcelの印刷設定に表示されているプリンター一覧と同じものが表示されます。(ようは全て)私のPCにはプリンターが接続されていないので機械のプリンター名が表示されていませんが(笑)OK/キャンセルの取得ではダイアログボックスのOKとキャンセルが押されたときの処理方法をご紹介します。@taka_pc1027■YouTubeチャンネル登録ファイルやコードの利用、WEBサイトの利用についてサンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。応用ExcelVBAこの記事が気に入ったらいいねしよう!最新記事をお届けします。コメントをキャンセルメールアドレスが公開されることはありません。【ブログ運営報告】ブログ運営を始めて4か月半のアクセス数RECOMMENDこちらの記事も人気です。pvプロフィールどうも本サイト【E-VBA】のtakaと申します!ひょんなことからVBAを学ぶことになった非IT社員です。