For i = pdf.FormFieldCount To 1 Step -1
           lret = pdf.SetFormFieldChildTitle(i, pdf.GetFormFieldTitle(i) & documentCount & i)
           'If CStr(pdf.GetFormFieldValue(i)) <> "" Then
           '    lret = pdf.FlattenFormField(i)
           'Else
           '    lret = pdf.DeleteFormField(i)
           'End If
     Next

And if you need the form to not be edited then you should use SetFormFieldReadOnly function also.

 

I know this is frustrating for you.  If you submitted the problem to tech support they will get back with you.

 

 I've tried a few other things and still cannot duplicate the error you're getting.  I have viewed the results in Acrobat 9 Pro, PDF XPress Viewer, Adobe Reader 8, FoxIt and a GDPicture ocx viewer I created.  The results from all my test files and your error file display the same in each viewer. 

 

However, I did note one curious thing... file size.  Just for kicks I also flattened your original foo.pdf using Acrobat 9 Pro and GDPicture.  The file size on each is quite different.  The really strange thing is the file size of your flattened file.

 

Your original foo.pdf, unflattened, is 98302.

 

The file size results of flattening in each of the following:

 

Acrobat 9 Pro:  187352

GDPicture:  245658

MyFlatRoutine:  248762 (with QuickPDF)

YourFlatfoopdf:  93976

 

Your flattened file size is smaller than the original.  How can that be?  Even Acrobat, which has the smallest size is double that of the original.

 

I now have tried My routine and file viewing on three computers... one with XP/SP3, one on my neighbor's Vista and on a brand new Windows 7 box.  All results are the same.

 

Something strange is happening.  It drives me nuts that I can't duplicate your error.

 

I sent you an image of the file size comparisons to your email.

 

Tom

 

 

Tom,

I still get the same behavior with the code snippet that you supplied. 

 

VB6 SP6

XP SP2

QuickPDF 7.17 - standard license valid to version  7.99

 

Info reported by sysinternals ProcExp when running compiled simple vb6 test project:

QuickPDFAX0717.dll   v 7.17.1029.0209

VB VM v.  6.00.0098.0002

typical mumbo jumbo ms support files

 

Foxit Phantom 1.0 flattens the pages correctly on my system.

 

-noh

 

I reduced the flattening to the smallest amount of code possible. 

 

Start a new project.  Add the QuickPDF 7.17 reference library.  Add a single command button.  Paste the following code into your project:

 

'-----------------------------------------------------------------

Option Explicit
Dim QP
Dim i As Integer
Private ret As Long

Private Sub Command1_Click()
 
 Dim PDFFileName As String
 Dim SaveFileName As String
 Dim FieldCount As Integer
 
 PDFFileName =  ' put your source file here "C:\Documents\foo.pdf"
 SaveFileName = 'put your destination save file pathname here "C:\Documents\footomflat.pdf"
 
 If QP.LoadFromFile(PDFFileName) = 1 Then
    
    'How many fields to fill?
   

   FieldCount = QP.FormFieldCount()

   MsgBox FieldCount 'should be 192 for your form
  
     For i = FieldCount To 1 Step -1
    
      QP.FlattenFormField i

     Next
    

      If QP.SaveToFile(SaveFileName) = 1 Then
        MsgBox "saved - " & SaveFileName & vbCrLf
      Else
        MsgBox "Error, file could not be written. - " & PDFFileName & vbCrLf
      End If
  
   Else
  
      MsgBox "Error, file not loaded."
     
   End If
End Sub

 

Private Sub Form_Load()
  ClassName = "QuickPDFAX0717.PDFLibrary"
  LicenseKey = "xxxxxxxxxxxxxxxxx" 'SET YOUR LICENSE KEY HERE...
  Set QP = CreateObject(ClassName)
  ret = QP.UnlockKey(LicenseKey)
  MsgBox ret

 

End Sub

'-------------------------------------

 

It works correctly every time I've run on my system.  If this project works correctly on yours then there has to be some other code in your project that is causing the problem.

 

Tom

 

 

Option Explicit

'Private pdfLib As QuickPDFAX0716.PDFLibrary
Private pdfLib As Object

Private Sub cmdFlatten_Click()

    On Error GoTo TrapError

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    If (pdfLib Is Nothing) Then
        Set pdfLib = CreateObject("QuickPDFAX0716.PDFLibrary")
        pdfLib.UnlockKey ("...")
    End If

    Dim outputFullPath As String
   
    Dim testPdfCount As Integer
    testPdfCount = 3
    Dim j As Integer
    For j = 1 To testPdfCount
        outputFullPath = "C:\footest" & CStr(j) & ".pdf"
       
        If (fso.FileExists(outputFullPath)) Then fso.DeleteFile (outputFullPath)
        fso.CopyFile "C:\foo.pdf", outputFullPath
   
        Call pdfLib.LoadFromFile(outputFullPath)
         
        Dim I As Integer
        Dim FieldCount As Integer
        FieldCount = pdfLib.FormFieldCount()
        For I = FieldCount To 1 Step -1
           pdfLib.FlattenFormField I
        Next
     
        Call pdfLib.SaveToFile(outputFullPath)
    Next
Cleanup:
    Exit Sub
TrapError:
    MsgBox Err.Description
    Resume Cleanup

End Sub

 

 

This will still generate the error intermittently.

 

You can email the pdf form to t.m.o.r.a.n4511 at h.o.t.m.a.i.l. dot com

 

The email address is purposefully disguised to avoid getting spam mail from scrapers.  Remove the periods and use the correct syntax (the @ symbol, etc.) for sending email if you'd like to send it.

 

Tom