Debenu Quick PDF Library - PDF SDK Community Forum : Whats wrong -> PrintDocument ? http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 10:41:00 +0000 Fri, 30 Dec 2005 12:50:45 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=209 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[Whats wrong -> PrintDocument ? : Hi, here you can find the solution...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post815.html#815 Author: Devil
Subject: 209
Posted: 30 Dec 05 at 12:50PM

Hi,

here you can find the solution / a sample for the problem,

VB6 - Print on the fly, ...

best regrads
Devil]]> Fri, 30 Dec 2005 12:50:45 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post815.html#815 <![CDATA[Whats wrong -> PrintDocument ? : Sorry, the Code is the one I...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post714.html#714 Author: Devil
Subject: 209
Posted: 16 Dec 05 at 12:49PM

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]]> Fri, 16 Dec 2005 12:49:21 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post714.html#714 <![CDATA[Whats wrong -> PrintDocument ? : Devil: You did mostly the same...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post712.html#712 Author: szelkye
Subject: 209
Posted: 16 Dec 05 at 10:49AM

Devil:  You did mostly the same thing I did.  You said in your first post that when you saved the document and opened again that it was okay.  I don't see that in your code.  I tried to do the same thing but I had no success.]]> Fri, 16 Dec 2005 10:49:21 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post712.html#712 <![CDATA[Whats wrong -> PrintDocument ? : Hi Szelkye, my first Idea was: &#039;...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post711.html#711 Author: Devil
Subject: 209
Posted: 16 Dec 05 at 9:42AM

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]]> Fri, 16 Dec 2005 09:42:02 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post711.html#711 <![CDATA[Whats wrong -> PrintDocument ? : Hi Ingo, thus you mean it are...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post710.html#710 Author: Devil
Subject: 209
Posted: 16 Dec 05 at 9:27AM

Hi Ingo,
thus you mean it are worthwhile yourself this DLL nevertheless to use/buy.
Which I need of these DLL am actually not very much...
A function who open an existing pdf knows their text fields fills out and send the whole on a printer ...
I can realize so far everything with these DLL, up to the deficiency with that expressions.
Unfortunately it seems so for it that no has a correct solution to the hand to solve this problem in VB6 ...

Devil]]> Fri, 16 Dec 2005 09:27:34 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post710.html#710 <![CDATA[Whats wrong -> PrintDocument ? : I tried following the advice of...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post709.html#709 Author: szelkye
Subject: 209
Posted: 16 Dec 05 at 9:05AM

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]]> Fri, 16 Dec 2005 09:05:11 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post709.html#709 <![CDATA[Whats wrong -> PrintDocument ? : Hi! I&#039;m only using the dcu-components...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post701.html#701 Author: Ingo
Subject: 209
Posted: 16 Dec 05 at 3:14AM

Hi!
I'm only using the dcu-components (delphi). Support or not - the wide range of functions and the price is the best you can get.
Anyway it's always the same: This dll or another one? It depends on what you wanna do and which functions you need.
A problem could be in the near future the further developing on the library... but perhaps this will be one of our tasks here in this forum.
]]> Fri, 16 Dec 2005 03:14:58 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post701.html#701 <![CDATA[Whats wrong -> PrintDocument ? : Hi Ingo, thx for answering, ... I...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post699.html#699 Author: Devil
Subject: 209
Posted: 16 Dec 05 at 2:47AM

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]]> Fri, 16 Dec 2005 02:47:40 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post699.html#699 <![CDATA[Whats wrong -> PrintDocument ? : @Admin It seems that I post in...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post696.html#696 Author: Devil
Subject: 209
Posted: 16 Dec 05 at 2:05AM

@Admin

It seems that I post in the wrong thread,
could you please move to "I need help - I can help" thread.

Thanks
Devil

>>> MOVED AS REQUESTED.

Edited by Michel_K17]]> Fri, 16 Dec 2005 02:05:20 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post696.html#696 <![CDATA[Whats wrong -> PrintDocument ? : Hi &#034;Devil&#034; ;-) It&#039;s...]]> http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post695.html#695 Author: Ingo
Subject: 209
Posted: 16 Dec 05 at 2:03AM

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) ;-)
]]> Fri, 16 Dec 2005 02:03:24 +0000 http://www.quickpdf.org/forum/whats-wrong-printdocument_topic209_post695.html#695