リソース不足を解消したい

質問

はじめまして、Excel VBAにて困っていますので教えてください。
・以下の構造でExcelを起動しております。
１．ＶＢ６で作成したアプリケーションよりExcelで使用するためのデータ抽出を
　行います。
２．抽出終了後、上記アプリケーションよりＥｘｃｅｌを起動し、ＶＢＡマクロ
　機能を使用し、自動印刷（複数帳票あり）を行います。（上記アプリケーションは待機状態）
３．印刷終了後、上記アプリケーションに戻ります。

・自動マクロ機能なので、処理終了後に上記３．に戻るのですが、リソース不足に
より（印刷時にリソースが消費されます）ハングアップ状態になる時があります。
　そこで、リソース不足を解消したいと思っているのですが、ExcelVBAでリソース
不足を解消する方法がありましたら、教えていただきたいのですが。

・私としては、印刷の時に、次の印刷時に前回の印刷が終了するまでマクロを待機
させたいと思っております。

　よろしくお願いします。

回答No.5

TAGOSAKU7

>確かにブックのＯＰＥＮ・ＣＬＯＳＥを数回行っています。
ブックのオープンクローズはOKです。
NGなのはエクセル本体の起動、終了を複数回行った場合です。

それと、画面の描画もメモリを消費しますので、コードをちょっとだけ変更させてみました。
これでもダメですか？

Public Sub XLSM0050_PRINT_SEC()
　　Dim W_FILE As String
　　Dim PV_X As Variant
　　On Error GoTo ERROR_TRAP

　　Application.StatusBar = True
　　Application.StatusBar = "ＥＸＣＥＬ添付文書出力中"

　　Application.ScreenUpdating = False
　　Open PB_TXTPATH & "INPM0250.TXT" For Input As #1

　　　　While Not EOF(1)
　　　　　　W_FILE = ""
　　　　　　Input #1, W_FILE
　　　　　　If W_FILE <> "" Then
　　　　　　　　Workbooks.Open Filename:="" & W_FILE & ""
　　　　　　　　ActiveWindow.SelectedSheets.PrintOut Copies:=1
　　　　　　　　ActiveWindow.Close
　　　　　　End If
　　　　Wend

　　Close #1

　　Application.ScreenUpdating = True

PGMEND:
　　Exit Sub

ERROR_TRAP:
　　Application.ScreenUpdating = True
　　PV_X = ABEND_SEC("1", "XLSM0010", "XLSM0050_PRINT_SEC", "")
　　GoTo PGMEND
End Sub

補足

TAGOSAKU7さん。ありがとうございます。
少しだけ改善されましたが、根本的には解決には至りませんでした。
どうも印刷スプール時にリソースを消費しているみたいなので、こちらの方で
解決策があれば教えてください。