Do you own a Debenu Quick PDF Library version 7, 8, 9, 10, 11, 12, 13 or iSEDQuickPDF license? Upgrade to Debenu Quick PDF Library 14 today!

Debenu Quick PDF Library - PDF SDK Community Forum Homepage
Forum Home Forum Home > For Users of the Library > I need help - I can help
  New Posts New Posts RSS Feed - Booklet
  FAQ FAQ  Forum Search   Register Register  Login Login

Booklet

 Post Reply Post Reply
Author
Message
KHentschel View Drop Down
Beginner
Beginner


Joined: 26 Feb 06
Status: Offline
Points: 11
Post Options Post Options   Thanks (0) Thanks(0)   Quote KHentschel Quote  Post ReplyReply Direct Link To This Post Topic: Booklet
    Posted: 20 Sep 07 at 8:22AM
Hello together,
 
i have a problem with the creation of a booklet PDF.
 
I use one given File and create from this a 2 up Booklet File. The creation runs fine but then when i call the PDF File there raise up an Acrobat Error Message:
 

"seitenstrukturdaten des dokuments enthalten einen ungltigen knoten"

After i press the OK Button i see (and can print) the correct file.

I hope someone can help me.
 
Best regards
 
Klaus Hentschel
 
here is my code (Visual FoxPro)
 
*** Code ***
lcInFile = 'd:\daten\infile.pdf'
lcOutFile = 'd:\daten\outfile.pdf'
loPDF = CREATEOBJECT("iSED.QuickPDF")
loPDF.UnlockKey('your Key')
lnPDF = loPDF.LoadFromFile(lcInFile)
loPDF.SetOrigin(1)
loPDF.SetPagelayout(0)
loPDF.SetPageMode(0)
lnPages = loPDF.PAGECOUNT()
lnReqPages = CEILING(lnPages / 2)
lnWidth = loPDF.PAGEWIDTH()
lnHeight = loPDF.PAGEHEIGHT()
llDrawLeft = .T.
lnAngle = 90
 
loPDF.NewPages(lnReqPages)
DIMENSION laCapture(lnPages,2)
FOR lnCount = 1 TO lnPages
   laCapture(lnCount,1) = loPDF.CapturePage(1)
   laCapture(lnCount,2) = CEILING((lnCount) / 2)
ENDFOR
 
FOR lnCount = 1 TO lnPages
   IF llDrawLeft
      lnLeft = 0
   ELSE
      lnLeft = lnHeight / 2
   ENDIF
   llDrawLeft = NOT llDrawLeft
   loPDF.SelectPage(laCapture(lnCount,2))
   loPDF.SetPageSize('A4 Landscape')

   loPDF.DrawCapturedPage(laCapture(lnCount,1), lnLeft, 0, lnHeight / 2, lnWidth)

   loPDF.RotatePage(360 - lnAngle)
ENDFOR

loPDF.SaveToFile(lcOutFile)
RELEASE loPDF
Back to Top
KHentschel View Drop Down
Beginner
Beginner


Joined: 26 Feb 06
Status: Offline
Points: 11
Post Options Post Options   Thanks (0) Thanks(0)   Quote KHentschel Quote  Post ReplyReply Direct Link To This Post Posted: 21 Sep 07 at 5:19AM
Ulrich Kobsa helps me in this case (many thanks also from this point Ulli)
 
The "OpenAction Object Referenz" was not correct after the CapturePage / DrawCapturePage.
 
The Solution was:
 
After i create the Booklet File i open this File with QP again and set over the "SetOpenActionDestination" function the OpenAction to the first page. Now everything run fine without an error.
Back to Top
Ingo View Drop Down
Moderator Group
Moderator Group
Avatar

Joined: 29 Oct 05
Status: Offline
Points: 3379
Post Options Post Options   Thanks (0) Thanks(0)   Quote Ingo Quote  Post ReplyReply Direct Link To This Post Posted: 09 Nov 21 at 8:08PM
Hi Klaus,

QP.RemoveSharedContentStreams after calling CapturePage should help...
...more than 14 years later ;-)

Cheers,
Ingo

Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 11.01
Copyright ©2001-2014 Web Wiz Ltd.

Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. AboutContactBlogSupportOnline Store