Debenu Quick PDF Library - PDF SDK Community Forum : VB6 - Print PDF ’on the fly .... http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 11 May 2026 23:20:01 +0000 Tue, 24 Oct 2006 12:05:01 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=232 <![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[VB6 - Print PDF ’on the fly .... : sams177 wrote:Hi !! Nice...]]> http://www.quickpdf.org/forum/vb6-print-pdf-on-the-fly_topic232_post2379.html#2379 Author: Devil
Subject: 232
Posted: 24 Oct 06 at 12:05PM

Originally posted by sams177 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


]]> Tue, 24 Oct 2006 12:05:01 +0000 http://www.quickpdf.org/forum/vb6-print-pdf-on-the-fly_topic232_post2379.html#2379 <![CDATA[VB6 - Print PDF ’on the fly .... : Hi !! Nice coding.. But I...]]> http://www.quickpdf.org/forum/vb6-print-pdf-on-the-fly_topic232_post2088.html#2088 Author: sams177
Subject: 232
Posted: 21 Jul 06 at 5:29AM

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.

 

 

]]> Fri, 21 Jul 2006 05:29:28 +0000 http://www.quickpdf.org/forum/vb6-print-pdf-on-the-fly_topic232_post2088.html#2088 <![CDATA[VB6 - Print PDF ’on the fly .... : Hi, for all they search for a...]]> http://www.quickpdf.org/forum/vb6-print-pdf-on-the-fly_topic232_post814.html#814 Author: Devil
Subject: 232
Posted: 30 Dec 05 at 12:46PM

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]]> Fri, 30 Dec 2005 12:46:55 +0000 http://www.quickpdf.org/forum/vb6-print-pdf-on-the-fly_topic232_post814.html#814