Skip to main content
5135 Posts
プログラムから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==