VB6 - Print PDF ’on the fly ....

Hi,

for all they search for a sample to print any PDF Files on the fly, ....

Sample written for Visual Basic 6:
______________________________________________________
Private Sub Print_on_the_fly_Click()

' Sub to prints PDF Files on the fly without saving

Dim QP As iSed.QuickPDF

Set QP = CreateObject("iSED.QuickPDF")

' GDIPlus.dll needed that the images are printable 'on the fly
Call QP.SetGDIPlusFileName(App.Path & "\GDIPLUS.DLL")

Call QP.UnlockKey("secret")
Call QP.LoadFromFile(App.Path & "\Formular.pdf")


If QP.Encrypted = 1 Then
QP.SetPassword ("secret")
QP.Unencrypt
End If
Call QP.SetNeedAppearances(1)

Call QP.SetFormFieldValueByTitle("Datum", date)
Call QP.SetFormFieldValueByTitle("Firma", Firma.value)
Call QP.SetFormFieldValueByTitle("Name", Name.value)
Call QP.SetFormFieldValueByTitle("Strasse", Strasse.value)
Call QP.SetFormFieldValueByTitle("Ort",PLZ.value & " " & Ort.value)
Call QP.SetFormFieldValueByTitle("Tel", Telfon.value)

' UpdateApperanceStream needed for printable 'on the fly
For pdfFields = 1 To QP.FormFieldCount
Call QP.UpdateAppearanceStream(pdfFields)
Next pdfFields

Call QP.PrintDocument(QP.GetDefaultPrinterName, 1, 1, QP.PrintOptions(0, 0, "Formular"))

Set QP = Nothing
End Sub
_______________________________________________________

best regards
Devil

sams177 wrote: Hi !! Nice coding.. But I want to diaplay the page before it prints. And ask the user, whether he want to print the page or not. Plz post reply to this.

All you you need for a "printPreview"
....
Call QP.NeedImagePreview(1)
Call QP.RenderDocumentToFile(72, 1, 1, 1, App.Path & "\Vorschau.jpg")
....

regards
Devil