投稿日 | : 2002/12/16(Mon) 11:41 |
投稿者 | : やま |
URL | : |
タイトル | : WORDでの印刷 |
VBよりWORDを起動して印刷を連続で行いたいのですが、1度WORDを起動し印刷処理を
行った後、再度印刷処理を行いますと、エラーとなってしまいます。
実行時エラー 462
リモートサーバーがないか、使用できる状態ではありません。
と表示されます。
1度だけはうまくいくのですが。
Private Sub btnprint_Click()
On Error Resume Next
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = New Word.Application
'新しい文書を開く
Set wdDoc = wdApp.Documents.Add
Selection.TypeParagraph ← ここでエラーです。
Selection.Font.Size = 11
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.TypeText Text:=txtsymd.Text
・
・
・
'文書を印刷 印刷処理が終了するまで待機
wdDoc.PrintOut Background:=False
'保存しないで終了
wdApp.Quit SaveChanges:=wdDoNotSaveChanges
'オブジェクトを解放します。
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
オブジェクトがうまく解放されていないんでしょうか?
それとも他に原因があるんでしょうか?
宜しくお願いいたします。