質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
印刷

印刷とは、インキを用いて紙などの被印刷物に機械的に複製することを指します。現在は紙などの2次元の媒体だけでなく、3次元の曲面にも直接印刷する技術など様々な開発が進んでいます。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

解決済

1回答

2968閲覧

VBAで印刷とプレビュー表示をするボタンを作成したい。

asuka.Mir

総合スコア15

印刷

印刷とは、インキを用いて紙などの被印刷物に機械的に複製することを指します。現在は紙などの2次元の媒体だけでなく、3次元の曲面にも直接印刷する技術など様々な開発が進んでいます。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2021/03/01 08:03

VBAの質問です。
印刷と印刷プレビュー表示を実行するボタンを作成したいと思っております。
イメージとしては、以下です。

①:ボタンをクリックする。
②:メッセージが表示される。(Yes・No・キャンセル)
③:Yes=デフォルト設定でそのまま印刷が実行される。
No=印刷のプレビューを表示させる。
キャンセル=処理を終了させる。

コードは以下の通りです。

Option Explicit

Sub prog1_Click()
Dim rc As Long
rc = MsgBox("こんにちは", vbYesNoCancel, "印刷確認")
If rc = vbYes Then
Worksheets("Sheet1").PrintOut
ElseIf rc = vbNo Then
Worksheets("Sheet1").PrintPreview
Else: Exit Sub

End If

イメージ説明End Sub

しかし、実際はYes・Noを選択しても何も実行されませんでした。
何か至らない点がありましたらご支援を賜ります。
どうそよろしくお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

(ボタン以外に)何もないので印刷されない、ということではないでしょうか。

投稿2021/03/01 08:27

jinoji

総合スコア4585

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

asuka.Mir

2021/03/01 08:33

先程、文字を入れてみたらいずれも実行できました。 ご対応ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問