Debenu Quick PDF Library - PDF SDK Community Forum : SetPageDimensions Problem http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 03:40:29 +0000 Wed, 16 Nov 2005 01:22:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=180 <![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[SetPageDimensions Problem : Me again ;-) Here&#039;s some...]]> http://www.quickpdf.org/forum/setpagedimensions-problem_topic180_post525.html#525 Author: Ingo
Subject: 180
Posted: 16 Nov 05 at 1:22AM

Me again ;-)

Here's some code from the "original" QuickPDF-website. It seems to feed your needs?

First, load the original document:
QP.LoadFromFile("original.pdf")

It will be easier if we set the origin to the top-left corner of the page, use the SetOrigin function:
QP.SetOrigin(1)

Then we get the number of pages in the original document:
originalPageCount = QP.PageCount()

Now calculate the required number of pages for the booklet:
if (originalPageCount == 1) requiredPages = 1; else
requiredPages = (floor(originalPageCount - 1) / 4) * 2

Store the size of the pages in the original document:
w = QP.PageWidth()
h = QP.PageHeight()

Add the required number of pages to the end of the document, using the NewPages function:
QP.NewPages(requiredPages)

Now capture the original pages:
for (page = 1; page <= originalPageCount; page++) {
capture[page] = QP.CapturePage(1)
}

Draw the first set of pages, alternate right/left:
captureIndex = 1
drawLeft = false
for (page = 1; page <= requiredPages; page++) {
QP.SelectPage(page)
QP.SetPageDimensions(h, w)
if (drawLeft) x = 0; else x = h / 2
QP.DrawCapturedPage(capture[captureIndex], x, 0, h / 2, w)
captureIndex++
drawLeft = !drawLeft
}

Draw the remaining pages, alternate left/right:
for (page = requiredPages;
   (page >= 1) && (captureIndex <= originalPageCount);
   page--) {
QP.SelectPage(page)
if (drawLeft) x = 0; else x = h / 2
QP.DrawCapturedPage(capture[captureIndex], x, 0, h / 2, w)
captureIndex++
drawLeft = !drawLeft
}

Now save the booklet you have just created to a file:
QP.SaveToFile("booklet.pdf")
]]> Wed, 16 Nov 2005 01:22:25 +0000 http://www.quickpdf.org/forum/setpagedimensions-problem_topic180_post525.html#525 <![CDATA[SetPageDimensions Problem : Hi Martin! I didn&#039;t try it...]]> http://www.quickpdf.org/forum/setpagedimensions-problem_topic180_post524.html#524 Author: Ingo
Subject: 180
Posted: 16 Nov 05 at 1:18AM

Hi Martin!
I didn't try it out but ...
What about creating a new and empty page with the new dimensions and then copy the old page into the new page?
Perhaps it helps working additional with GetPageContent on the old page and SetPageContent on the new page (after resizing).
Good luck.]]> Wed, 16 Nov 2005 01:18:46 +0000 http://www.quickpdf.org/forum/setpagedimensions-problem_topic180_post524.html#524 <![CDATA[SetPageDimensions Problem : I am trying to change the dimensions...]]> http://www.quickpdf.org/forum/setpagedimensions-problem_topic180_post523.html#523 Author: Martin
Subject: 180
Posted: 15 Nov 05 at 8:29PM

I am trying to change the dimensions of an existing page and the result is that the page gets resized but all of the content that was previously on the is removed.  Is this the  proper result of the method or is there another way to resize an existing page.

 

 

]]> Tue, 15 Nov 2005 20:29:56 +0000 http://www.quickpdf.org/forum/setpagedimensions-problem_topic180_post523.html#523