Jose wrote:Hello,
Are you using the same PC and office documents in your tests?
We are using the same documents as before except we also now have some pdf documents that were created by Word 2007. What I am doing is converting all our documents to pdfs. Some are pdfs created by other apps, some are pdfs created by the Converter, and some are pdfs created by Word 2007. Then I append all the pdfs using the CDIntfEx.Document Append method. What seems a bit slower is this append process. Below is my code that does the append. Do you see anyway to speed this up?
Dim doc1, doc2 As CDIntfEx.Document
Dim FirstDoc, LastDoc As Integer
FirstDoc = inNextDoc
LastDoc = inNextDoc
doc1 = New CDIntfEx.Document
doc1.SetLicenseKey(clsConstants.AmyuniLicensee, clsConstants.AmyuniLicenseCode)
doc2 = New CDIntfEx.Document
doc2.SetLicenseKey(clsConstants.AmyuniLicensee, clsConstants.AmyuniLicenseCode)
doc1.Open(PDFOutputFile & "-" & inRequest.DetailCollection(FirstDoc).BulkPrintDetailSeqNum.ToString & ".PDF")
If clsConstants.PrintDuplexOverride Then
If doc1.PageCount Mod 2 > 0 Then
doc1.Append(BlankPageFile)
End If
End If
For x As Integer = FirstDoc + 1 To inRequest.DetailCollection.Count - 1
doc2.Open(PDFOutputFile & "-" & inRequest.DetailCollection(x).BulkPrintDetailSeqNum.ToString & ".PDF")
If doc2.PageCount + doc1.PageCount < clsConstants.MaxSpoolSize Then
LastDoc = x
doc1.AppendEx(doc2)
If clsConstants.PrintDuplexOverride Then
If doc1.PageCount Mod 2 > 0 Then
doc1.Append(BlankPageFile)
End If
End If
Else
Exit For
End If
Next
doc1.Creator = "Requested by " & inRequest.CreateUser & " for " & inRequest.DestUser
inPageCount += doc1.PageCount
clsLogManager.WriteMessage(clsConstants.LOG_SPOOL_CHUNK, inRequest.BulkPrintSeqNum, FirstDoc + 1, LastDoc + 1, doc1.PageCount)
doc1.Title = "Bulkprint Job #" & inRequest.BulkPrintSeqNum.ToString & " " & CStr(FirstDoc + 1) & " to " & CStr(LastDoc + 1)
If clsConstants.PrintDuplexOverride Then
doc1.Print(CurrentDuplexDevice, 1, doc1.PageCount, 1)
Else
doc1.Print(CurrentDevice, 1, doc1.PageCount, 1)
End If
doc2 = Nothing
doc1 = Nothing