こんにちわ。教えてください。VBAでActiveXコントロールをクリック
したのち、印刷のプレビューを表示したら、MegBoxメッセージを表示
させ ”はい””いいえ”を選択したいのですがうまくいきません。
ちなみに下記のプログラムです。
Private Sub 印刷_Click()
ActiveWindow.SelectedSheets.PrintPreview
Dim ans As Integer
ans = MsgBox("印刷しますか?", vbInformation + vbYesNo, "確 認")
Select Case ans
Case vbYes
Application.ActivePrinter = "Canon iR C3080/C3580 LIPSLX on Ne05:"
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
Case vbNo
MsgBox "故障履歴印刷をキャンセルします。"
End Select
End Sub
以上なんですがプレビュー後に”印刷しますが”が聞いてきません。
どうすればいいですか?
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんばんは。
簡単ですが↓でどうでしょうか?
Sub Macro1()
Dim ans As Integer
Sheet1.Select
ans = MsgBox("印刷しますか?", vbInformation + vbYesNo, "確 認")
Select Case ans
Case vbYes
Sheet1.PrintOut copies:=1
Case vbNo
MsgBox "故障履歴印刷をキャンセルします。"
End Select
End Sub
印刷範囲指定したい場合はマクロで記録して、不要部分をトリムください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- プリンタ・スキャナー 印刷ができない 6 2022/04/01 20:47
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- オープンソース OpenOffice Calc basic で印刷プレビューを表示する方法 1 2023/04/15 12:43
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Word2010の差し込み印刷で結果...
-
Wordで画面に出てこない文字が...
-
ワードの文章と印刷プレビュー...
-
エクセルの印刷で、テキストボ...
-
差込印刷 MERGEFIELDとは?
-
ワード差し込みで結果のプレビ...
-
フッターヘッターが印刷されない。
-
Excel VBA の印刷後の判定
-
ワードで作成した文書を印刷す...
-
WORDでヘッダーを印刷しない方...
-
EXCEL2013で開くと図形の位置が...
-
VBAエクセルにて印刷
-
ワードのズームの固定
-
印刷プレビューが正常に表示さ...
-
エクセルにテキストボックスを...
-
2007エクセル:図形が表示され...
-
貼り付けた画像が印刷すると横...
-
【ワード(WORD)】印刷文書の...
-
Excelでプレビュー出来ない
-
イラストレーターのデータをワ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word2010の差し込み印刷で結果...
-
Wordで画面に出てこない文字が...
-
Excelで作成した表をWordに貼り...
-
エクセルの印刷で、テキストボ...
-
ワードで作成した文書を印刷す...
-
ワードで、ヘッダーの文字が表...
-
WORDでヘッダーを印刷しない方...
-
エクセルにテキストボックスを...
-
ワード差し込みで結果のプレビ...
-
Excel VBA の印刷後の判定
-
印刷プレビューにはうつるが印...
-
ワードの文章と印刷プレビュー...
-
印刷プレビューが正常に表示さ...
-
Word フィールドコードの印刷
-
フッターヘッターが印刷されない。
-
サブレポートのレポートフッタ...
-
EXCEL2013で開くと図形の位置が...
-
Wordの印刷レイアウトと印刷プ...
-
貼り付けた画像が印刷すると横...
-
ワードのズームの固定
おすすめ情報