PDFs rotate unexpectedly

I have seen where loading PDFs from files into QPL and then saving them result in the pages being rotated by 90 degrees (CW or CCW).

Is there a best practice way to manage / eliminate this rotation?

Thanks

Jerry

QP.LoadFromFile(origfile, "")
QP.SetOrigin(1)
Dim numpages as Integer = QP.PageCount
For i = 1 to numpages
   QP.SelectPage(1)
   ' QP.NormalizePage(0) ' If uncommmented, I get blank pages
   pagewidth = QP.PageWidth()
   pageheight = QP.PageHeight()
  
   QP.NewPage()
   QP.SetPageDimensions(pagewidth, pageheight)
   capturepageid = QP.CapturePage(1)
   QP.DrawCapturedPage(capturepageid, 36, 36, pagewidth-72, pageheight-72)
Next
QP.SaveToFile("newfile.pdf")

Thanks Werner for your code sample that show how to use the PageRotation() and RotatePage() functions. For whatever reason however I had to apply the rotation AFTER the new page was drawn; the resulting page did NOT rotate when I placed the RotatePage() command as in your sample code.

Anyways, here's the code that worked for me. I added some subtle hacks (having to do with single vs multiple-page original files). I've added comments to explain when to execute NewPage() based on what I observed through trial-and-error, hopefully I got them right. Being a newb at QPL, I wish the official documentation (reference manuals, etc.) were a bit more comprehensive explaining the subtleties of how things actually work.

Jerry

--

QP.LoadFromFile(origfile, "")
QP.SetOrigin(1)

Dim numpages As Integer = QP.PageCount
For i As Integer = 1 To numpages
   QP.SelectPage(1)
   Dim rotation As Integer = QP.PageRotation()
   pagewidth = QP.PageWidth()
   pageheight = QP.PageHeight()

   If numpages = 1 Then
      QP.NewPage() ' Extra page to allow capturepage() to execute for single page PDFs
   End If
   Dim capturedpageid As Integer = QP.CapturePage(1) ' Deletes page from document
   If numpages > 1 Then
      QP.NewPage() ' Page onto which the captured page will be drawn
   End If
   QP.SetPageDimensions(pagewidth, pageheight)
   QP.DrawCapturedPage(capturedpageid, ...)
   If rotation <> 0 Then
      QP.RotatePage(rotation) ' ***** ROTATE HERE TO MATCH ORIGINAL *****
   End If
Next

QP.SaveToFile(newfile)

Edited by chansw - 18 Feb 12 at 3:24AM