![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
excelからVBAでWORDを起動させ、エクセルデータをWORDの宛て名ファイルに差込み、印刷プレビューまでさせています。
EXCELでは、印刷プレビューの次の行のコマンドはプレビューを閉じないと実行されませんが、WORDでは実行されてしまいます。
今やりたいのは、WORDの宛名ファイルを印刷したあと、WORD自体は保存しないで終了し、EXCELだけ起動した状態にするということです。
ActiveDocument.PrintPreview
ActiveDocument.Close = False
と記述しただけでは、印刷できないまま、WORDが終了してしまいます。
何かよい方法があるでしょうか?
No.2ベストアンサー
- 回答日時:
Dim i As Integer
For i = 1 To 2
If i= 1 Then
ActiveDocument.PrintPreview
i=InputBox("印刷する場合は1をしない場合は2を入力","確認")
Else
ActiveDocument.PrintOut
End if
Next i
確認していないので動かないかもしれません。
駄目だったら、プレビューのマクロと印刷のマクロの2パターンを書くしかないかもしれません。
回答ありがとうございます。
IF文を使った分岐を参考にさせていただき解決しました。
ActiveDocument.PrintPreview の後にINPUTBOXだとプレビュー表示後、「2ページ目だけ印刷したい」のような細かい設定ができないため、フォームをShowModal=:falseで介在させることで課題をクリアすることができました。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ノートパソコン Windows11homeを新しく購入し、初期設定をしています。 前のパソコンでは無線のFAX機や有 5 2023/04/18 19:50
- CAD・DTP A3のWORDファイルをTIFFに変換したい 6 2022/12/15 16:00
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- その他(音楽・ダンス・舞台芸能) チケットに座席番号のみを印刷する方法 4 2023/02/10 11:21
- オープンソース OpenOffice Calc basic で印刷プレビューを表示する方法 1 2023/04/15 12:43
- Word(ワード) wordの差し込み印刷で困っています。助けてください。word2019です。 エクセルで作ったデータ 3 2023/03/17 13:51
- Word(ワード) 9枚の写真がA4 1枚に印刷できました。しかし配列が思うようになりません。 5 2023/07/02 17:15
- ノートパソコン 年賀状を作っています。 プリンターを変え、パソコンの方を設定でき、試し印刷でWordのA4の白黒のを 2 2022/11/27 16:06
- PDF PDF作成ファイルの不具合の件 5 2022/08/15 15:00
- その他(Microsoft Office) Wordを開くと「学校アカウントがアクティブではなくなりました。」と出てくるのですが、この場合でもW 1 2022/07/14 15:03
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
印刷マクロ【エクセル】エクセルからワードを印刷する
その他(Microsoft Office)
-
ワードのマクロにおけるPrintOut
Word(ワード)
-
EXCEL VBA 印刷プレビューダイアログのボタン操作を判定したい
Visual Basic(VBA)
-
-
4
エクセルのマクロで印刷プレビューを閉じる方法
Excel(エクセル)
-
5
Word VBA。各マクロの間に待ち時間を指定するには?
Word(ワード)
-
6
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
7
イベントプロシージャ 印刷が終わったあと…
Visual Basic(VBA)
-
8
EXCELのVBAでWORDが開いてあるかチェック
Excel(エクセル)
-
9
エクセルのVBAとワードを使った差し込み印刷
Word(ワード)
-
10
Excel VBA の印刷後の判定
Excel(エクセル)
-
11
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
ACCESSのレポートにWORDで作った文書を貼り付けるには?
Access(アクセス)
-
14
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
15
ExcelやWordの特定のファイルを印刷するときのみ、通常使うプリン
その他(Microsoft Office)
-
16
スクロールバーをVBAで操作したい
Access(アクセス)
-
17
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
18
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
-
19
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードの文章と印刷プレビュー...
-
Word2010の差し込み印刷で結果...
-
Excelの印刷時にプレビューが出...
-
googleドライブ文書をセブンイ...
-
OutlookExpressで複数メールの...
-
エクセル2010でのBeforePrintイ...
-
Excelでプレビュー出来ない
-
Excel VBA の印刷後の判定
-
印刷プレビュー通りに印刷でき...
-
テキストボックスの文字が表示...
-
PDFファイルは印刷できますか?
-
Wordで画面に出てこない文字が...
-
Microsoft(R) メモ帳の印刷
-
マクロの連続印刷で2枚目から...
-
Wordの印刷レイアウトと印刷プ...
-
ワード差し込みで結果のプレビ...
-
Wordで40字×40行にしたいのです...
-
1枚の紙に4つ同じものを印刷し...
-
高校2年論理国語の教科書で習う...
-
セルの文字を「印刷時だけ非表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word2010の差し込み印刷で結果...
-
Wordで画面に出てこない文字が...
-
Excelで作成した表をWordに貼り...
-
エクセルの印刷で、テキストボ...
-
ワードで作成した文書を印刷す...
-
ワードで、ヘッダーの文字が表...
-
WORDでヘッダーを印刷しない方...
-
エクセルにテキストボックスを...
-
ワード差し込みで結果のプレビ...
-
印刷プレビューにはうつるが印...
-
ワードの文章と印刷プレビュー...
-
Excel VBA の印刷後の判定
-
印刷プレビューが正常に表示さ...
-
Word フィールドコードの印刷
-
フッターヘッターが印刷されない。
-
サブレポートのレポートフッタ...
-
EXCEL2013で開くと図形の位置が...
-
Wordの印刷レイアウトと印刷プ...
-
貼り付けた画像が印刷すると横...
-
ワードのズームの固定
おすすめ情報