OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

WORDのVBAで印刷プレビューの制御方法

  • すぐに回答を!
  • 質問No.176146
  • 閲覧数1763
  • ありがとう数1
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 43% (44/102)

excelからVBAでWORDを起動させ、エクセルデータをWORDの宛て名ファイルに差込み、印刷プレビューまでさせています。
EXCELでは、印刷プレビューの次の行のコマンドはプレビューを閉じないと実行されませんが、WORDでは実行されてしまいます。
今やりたいのは、WORDの宛名ファイルを印刷したあと、WORD自体は保存しないで終了し、EXCELだけ起動した状態にするということです。
  
ActiveDocument.PrintPreview
ActiveDocument.Close = False

と記述しただけでは、印刷できないまま、WORDが終了してしまいます。
何かよい方法があるでしょうか?
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル12

ベストアンサー率 55% (369/665)

印刷したいならば PrintPreview ではなく PrintOut を使用すれば良いのではないでしょうか ...続きを読む
印刷したいならば
PrintPreview
ではなく
PrintOut
を使用すれば良いのではないでしょうか
補足コメント
toyotamahime

お礼率 43% (44/102)

回答ありがとうございます。
印刷するまえに内容を確認したいので、あえてPrintPreview
にしています。

印刷しないという選択肢もあるので。

ということで引き続きよろしくお願いいたします。
投稿日時 - 2001-11-28 16:54:53

  • 回答No.2
レベル12

ベストアンサー率 55% (369/665)

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 確認していないので動かないかもしれ ...続きを読む
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パターンを書くしかないかもしれません。
お礼コメント
toyotamahime

お礼率 43% (44/102)

回答ありがとうございます。

IF文を使った分岐を参考にさせていただき解決しました。

ActiveDocument.PrintPreview の後にINPUTBOXだとプレビュー表示後、「2ページ目だけ印刷したい」のような細かい設定ができないため、フォームをShowModal=:falseで介在させることで課題をクリアすることができました。
ありがとうございます。
投稿日時 - 2001-12-10 12:57:25
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ