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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
ワードのマクロにおけるPrintOut
Word(ワード)
-
印刷マクロ【エクセル】エクセルからワードを印刷する
その他(Microsoft Office)
-
EXCEL VBA 印刷プレビューダイアログのボタン操作を判定したい
Visual Basic(VBA)
-
-
4
EXCELのVBAでWORDが開いてあるかチェック
Excel(エクセル)
-
5
Excel VBA の印刷後の判定
Excel(エクセル)
-
6
エクセルのマクロ
Excel(エクセル)
-
7
エクセルのマクロで印刷プレビューを閉じる方法
Excel(エクセル)
-
8
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
9
イベントプロシージャ 印刷が終わったあと…
Visual Basic(VBA)
-
10
エクセルのVBAとワードを使った差し込み印刷
Word(ワード)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
13
Word VBA。各マクロの間に待ち時間を指定するには?
Word(ワード)
-
14
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
15
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
16
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
17
スクロールバーをVBAで操作したい
Access(アクセス)
-
18
エクセルvbaでdocuworksprinterの出力先を設定
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Word2010の差し込み印刷で結果...
-
Wordで画面に出てこない文字が...
-
ワードで作成した文書を印刷す...
-
印刷プレビューにはうつるが印...
-
ワード差し込みで結果のプレビ...
-
エクセルの印刷で、テキストボ...
-
エクセルにテキストボックスを...
-
ワードで、ヘッダーの文字が表...
-
Excel VBA の印刷後の判定
-
PDFファイルに関して教えてくだ...
-
WORDでヘッダーを印刷しない方...
-
PrintPreviewControlのプレビュ...
-
ワードの文章と印刷プレビュー...
-
印刷プレビューに表示されない...
-
word 白黒で印刷プレビュー
-
Draftsight でカラー印刷するた...
-
エクセルで作成したデータをす...
-
WORDのVBAで印刷プレビューの制...
-
マクロの連続印刷で2枚目から...
-
1枚の紙に4つ同じものを印刷し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word2010の差し込み印刷で結果...
-
Wordで画面に出てこない文字が...
-
エクセルにテキストボックスを...
-
ワードで、ヘッダーの文字が表...
-
エクセルの印刷で、テキストボ...
-
WORDでヘッダーを印刷しない方...
-
ワードで作成した文書を印刷す...
-
Excel VBA の印刷後の判定
-
ワード差し込みで結果のプレビ...
-
ワードの文章と印刷プレビュー...
-
EXCEL2013で開くと図形の位置が...
-
印刷プレビューにはうつるが印...
-
Word フィールドコードの印刷
-
サブレポートのレポートフッタ...
-
エクセルで印刷するとボタンが...
-
ワードのズームの固定
-
貼り付けた画像が印刷すると横...
-
Excelで作成画面と印刷プレビュ...
-
Excelで印刷出来ない(Mac)
-
Wordの印刷レイアウトと印刷プ...
おすすめ情報