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!
![]() |
Booklet |
Post Reply ![]() |
Author | |
KHentschel ![]() Beginner ![]() Joined: 26 Feb 06 Status: Offline Points: 11 |
![]() ![]() ![]() ![]() ![]() 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 ungültigen 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
|
|
![]() |
|
KHentschel ![]() Beginner ![]() Joined: 26 Feb 06 Status: Offline Points: 11 |
![]() ![]() ![]() ![]() ![]() |
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.
|
|
![]() |
|
Ingo ![]() Moderator Group ![]() ![]() Joined: 29 Oct 05 Status: Offline Points: 3529 |
![]() ![]() ![]() ![]() ![]() |
Hi Klaus,
QP.RemoveSharedContentStreams after calling CapturePage should help... ...more than 14 years later ;-) |
|
Cheers,
Ingo |
|
![]() |
Post Reply ![]() |
|
Tweet
|
Forum Jump | Forum Permissions ![]() You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |
Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. About — Contact — Blog — Support — Online Store