プログラムからPDF印刷する際、時々、エラーとなる 現在、Acrobatを使用して、PDFファイルを印刷するプログラムを開発しております。自動で1日に1500~1600回ほど印刷処理を行っており、日にもよりますが、1~5回ほどエラーが発生しております。何か原因が解かる方、ご助言をお願いいたします。ここでの投稿で不適切であった場合、大変申し訳ありません。 対象機能内容は、以下の通りです。事前に参照設定、プリンタのデフォルト設定は済です。==========================================================================#Region "PDFプリンタ出力" ' PDFプリンタ出力 Public Function PrintPdf(ByVal strInFile As String, ByRef strメッセージ As String) As Boolean Dim blRet As Boolean Dim acroAVDoc As New Acrobat.AcroAVDoc ←① PrintPdf = True Try ' PDFファイルを開く blRet = acroAVDoc.Open(strInFile, "") ←② If Not blRet Then PrintPdf = False strメッセージ = "PDFファイルオープンエラー" Exit Try End If ' 印刷 blRet = acroAVDoc.PrintPagesSilent(0, 0, 2, CLng(True), CLng(True)) ←③ If Not blRet Then PrintPdf = False strメッセージ = "PDFファイル印刷エラー" End If ' PDFドキュメントを閉じる blRet = acroAVDoc.Close(1) ←④ Catch ex As Exception strメッセージ = ex.Message PrintPdf = False Finally ' オブジェクト強制解放 acroAVDoc = Nothing End Try End Function#End Region==