Whats wrong -> PrintDocument ?

Hi "Devil" ;-)
It's my experience that (to avoid compatibility problems with newest pdf-versions) it's often a solution to save and reload the pdf-file for better results.
If you wanna do it "on the fly" you can use this idea, too. ...In this case don't use SaveToFile and LoadFromFile. There're functions (for delphi only) like SaveToStream / SaveToString and LoadFromStream / LoadFromString.
You should prefer to read and write in english here if you want any help. The QuickPDF-users are all over the world - only less in germany (i fear) ;-)

Hi Ingo,

thx for answering, ...
I use the iSED.dll with VB6 and Adobe V.5, ....
The methode I write is by the way not the best, but it runs !
Makes it sense to use the iSED.dll or better use another dll.
I read some threads about the confusion with iSED/ Sedtech.
There no way to become some better support for this dll ?

Devil

I tried following the advice of this thread but I'm still having a problem.  The Content of the FormFields are empty for my document.  Here is some VB code

 

iSed.UnlockKey ISED_QUICKPDFKEY
    lOutDoc = iSed.NewDocument()
   
    iSed.LoadFromFile (sSourcePDFFile)
    lFormDoc = iSed.SelectedDocument
   
    For Each sFieldName In mcolFieldVals.Keys
        On Error Resume Next
        iSed.SetFormFieldValueByTitle sFieldName, mcolFieldVals(sFieldName)
        On Error GoTo 0
    Next
    iSed.SelectDocument lOutDoc
    iSed.MergeDocument lFormDoc
    iSed.DeletePages 1, 1
    iSed.CompressContent
    iSed.SetNeedAppearances 1
   
    sFileName = getTempPDFFile()
   
    iSed.SaveToFile sFileName
    iSed.LoadFromFile (sFileName)
   
    'iSed.PrintDocument iSed.GetDefaultPrinterName, 1, iSed.PageCount, 0
    iSed.PrintDocument iSed.GetDefaultPrinterName, 2, 2, 0 'this is just for debugging so only 1 page prints...

 

If I load the file (sFileName) in Acrobat right after its saved here, the form fields are there so I don't know.

Please any help would be greatly appreciated.

Edited by szelkye

Hi Szelkye,

my first Idea was:

' PDF-Bestellformular öffnen
' und Daten aus den Stammdaten entnehmen

Dim QP As iSED.QuickPDF
Set QP = CreateObject("iSED.QuickPDF")
Call QP.UnlockKey("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") 'secret
Call QP.LoadFromFile(App.Path & "\Bestellformular.pdf")
If QP.Encrypted = 1 Then
QP.SetPassword ("XXXXXXX") 'secret
QP.Unencrypt
End If
Call QP.SetNeedAppearances(1)

Call QP.SetFormFieldValueByTitle("Datum", date)
Call QP.SetFormFieldValueByTitle("Firma", GetIniString("Stammdaten", "Firma", ja, (App.Path & "\" & App.EXEName & ".ini")))
Call QP.SetFormFieldValueByTitle("Name", GetIniString("Stammdaten", "Zusatz", ja, (App.Path & "\" & App.EXEName & ".ini")))
Call QP.SetFormFieldValueByTitle("Strasse", GetIniString("Stammdaten", "Strasse", ja, (App.Path & "\" & App.EXEName & ".ini")))
Call QP.SetFormFieldValueByTitle("Ort", GetIniString("Stammdaten", "PLZ", ja, (App.Path & "\" & App.EXEName & ".ini")) & " " & GetIniString("Stammdaten", "Ort", ja, (App.Path & "\" & App.EXEName & ".ini")))
Call QP.SetFormFieldValueByTitle("Tel", GetIniString("Stammdaten", "Phone", ja, (App.Path & "\" & App.EXEName & ".ini")) & " " & GetIniString("Stammdaten", "Fax", ja, (App.Path & "\" & App.EXEName & ".ini")))


I = QP.GetDefaultPrinterName
Call QP.PrintDocument(I, 1, 1, 0)

Set QP = Nothing

End Sub                  


All text fields are empty and the Image are missing also on the expressions.I think which I simply a mistake in reasoning in the code have or simply only something forgot...

Devil

Sorry,

the Code is the one I tried to use for it, but work not right.

The Code I used is the following one:

Dim QP As iSED.QuickPDF
Set QP = CreateObject("iSED.QuickPDF")
Call QP.UnlockKey(XXXXXXXXXXXXXXXXX)
Call QP.LoadFromFile(App.Path & "\Bestellformular.pdf")
If QP.Encrypted = 1 Then
QP.SetPassword ("XXXXXXX")
QP.Unencrypt
End If
Call QP.SetNeedAppearances(1)


Call QP.SetFormFieldValueByTitle("Datum", date)
Call QP.SetFormFieldValueByTitle("Firma", GetIniString("Stammdaten", "Firma", ja, (App.Path & "\" & App.EXEName & ".ini")))
Call QP.SetFormFieldValueByTitle("Name", GetIniString("Stammdaten", "Zusatz", ja, (App.Path & "\" & App.EXEName & ".ini")))
Call QP.SetFormFieldValueByTitle("Strasse", GetIniString("Stammdaten", "Strasse", ja, (App.Path & "\" & App.EXEName & ".ini")))
Call QP.SetFormFieldValueByTitle("Ort", GetIniString("Stammdaten", "PLZ", ja, (App.Path & "\" & App.EXEName & ".ini")) & " " & GetIniString("Stammdaten", "Ort", ja, (App.Path & "\" & App.EXEName & ".ini")))
Call QP.SetFormFieldValueByTitle("Tel", GetIniString("Stammdaten", "Phone", ja, (App.Path & "\" & App.EXEName & ".ini")) & " " & GetIniString("Stammdaten", "Fax", ja, (App.Path & "\" & App.EXEName & ".ini")))



Call QP.SaveToFile(App.Path & "\export\" & "0815-20051215.pdf")


Set QP = Nothing

Call ShellExecute(hWnd, "Print", App.Path & "\export\" & "0815-20051215.pdf", "", "", 0)


Devil