投稿日 | : 2005/09/11(Sun) 16:15 |
投稿者 | : Starfish |
Eメール | : |
URL | : |
タイトル | : Wordの印刷時に印刷中のダイアログを消すには |
いつも、お世話になっています。
早速ですが、VBからWordの差込印刷を裏で(画面のないプログラムで)行っているのですが、
印刷時に、Wordの印刷中のダイアログが表示されます。
このダイアログを表示させない方法ってありますでしょうか?
ちなみに、以下のFalseをTrueに変更するとプログラム自体は正常に動作するのですが、
印刷もされなくなってしまいます。?
> wrdApp.ActiveDocument.PrintOut Background:=False
Wordで印刷するところの、サブルーチンは以下のようになっています。
Private Sub PrintKaitousho(strDocName As String)
'Dim wrdApp As Word.Application ' Word.Application
'Dim wrdDoc As Word.Document ' Word.Document
Dim wrdApp As Object ' Word.Application
Dim wrdDoc As Object ' Word.Document
Const wdSendToNewDocument = 0
Const wdDoNotSaveChanges = 0
' エラーは次に進みます
On Error Resume Next
' Word のインスタンスを作成し、表示します。
Set wrdApp = CreateObject("Word.Application")
' wrdApp.Visible = True
'差し込み印刷設定してあるWordのファイルを開く
Set wrdDoc = wrdApp.Documents.Open(gstrDocPath & "\" & strDocName)
'ファイルの差し替え
wrdDoc.MailMerge.OpenDataSource Name:=gstrDataPath & "\Data.txt", LinkToSource:=True
'差し込み印刷機能のオプションの設定
With wrdApp.Documents(1).MailMerge
.Destination = wdSendToNewDocument '差し込み文書の送り先を設定
.SuppressBlankLines = False 'Trueの場合は空白行は印刷されない
.Execute Pause:=True '指定されたデータの差し込みを実行します
End With
'文書(Documents(1))を印刷 印刷処理が終了するまで待機
wrdApp.ActiveDocument.PrintOut Background:=False
'保存しないで終了
wrdApp.Quit SaveChanges:=wdDoNotSaveChanges
'オブジェクトを解放します。
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub