Hi Stephen,

As I say, I works well on other computers. Its probably related to the
version of Acrobat API which is 5.0 on the one that doesn't work. It seems to
work with Acrobat 7.

In any case, I gather that you are the author of the strStorage.dll that is
included with ReportToPDF. If so, can you tell me if the value of the
ConvertUncompressedSnapshot PDFNoFontEmbedding parameter should be to fully
imbed all the fonts as Adobe suggests. Perhaps it might help. I've tried 0, 1
and -1 so far. (-1 seems to have the same effect as 1).

Here is the Acrobat merge code you requested.

Function Merge()
Dim objAcroApp As Acrobat.CAcroApp
Dim objAcroDoc As Acrobat.CAcroPDDoc
Dim objAcroDocSrc As Acrobat.CAcroPDDoc
Dim lngRetVal As Long
Dim i As Long
Dim lngPage As Long
   
   Set objAcroApp = CreateObject("AcroExch.App")
   Set objAcroDoc = CreateObject("AcroExch.PDDoc")
   Set objAcroDocSrc = CreateObject("AcroExch.PDDoc")
   
   lngRetVal = objAcroDoc.Open(colDOCS.Item(1))
   lngPage = objAcroDoc.GetNumPages
   
   For i = 2 To colDOCS.Count
       lngRetVal = objAcroDocSrc.Open(colDOCS.Item(i))
       Merge = objAcroDoc.InsertPages((lngPage - 1), objAcroDocSrc, 0,
objAcroDocSrc.GetNumPages, False)
       lngPage = lngPage + objAcroDocSrc.GetNumPages
       objAcroDocSrc.Close
   Next i
   objAcroDoc.CreateThumbs 0, lngPage - 1    
   Merge = objAcroDoc.Save(PDSaveFull, strDestination)
   
   objAcroDoc.Close
   objAcroApp.Exit
   If Not objAcroApp Is Nothing Then Set objAcroApp = Nothing
   If Not objAcroDoc Is Nothing Then Set objAcroDoc = Nothing
   If Not objAcroDocSrc Is Nothing Then Set objAcroDocSrc = Nothing

End Function

By the way, the ReportToPDF is a great help to me and I suspect any Access
developer who needs to send a report to PDF.  I thank you for that and for
your interest in this issue.