投稿日	： 2002/12/16(Mon) 11:41
投稿者	： やま
ＵＲＬ	：
タイトル	： ＷＯＲＤでの印刷

ＶＢよりＷＯＲＤを起動して印刷を連続で行いたいのですが、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

オブジェクトがうまく解放されていないんでしょうか？
それとも他に原因があるんでしょうか？
宜しくお願いいたします。

★ - ＷＯＲＤでの印刷 - やま 12/16-11:41No.1860
• Re: ＷＯＲＤでの印刷 - とろ 12/16-12:24 No.1862
  • ありがとうございました - やま 12/17-08:28 No.1873