Debenu Quick PDF Library - PDF SDK Community Forum : Adding pages

Debenu Quick PDF Library - PDF SDK Community Forum : Adding pages http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 08 May 2026 06:04:35 +0000 Thu, 18 Mar 2010 12:38:26 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=1371 <![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[Adding pages : After using much time trying to...]]> http://www.quickpdf.org/forum/adding-pages_topic1371_post6241.html#6241 Author: einar
Subject: 1371
Posted: 18 Mar 10 at 12:38PM

After using much time trying to use ClonePages() and CapturePage()/DrawCapturedPage() without luck, I found that using MergeDocument() did what I needed. So I like to add this function to this forum. The code is in Foxpro.

The task is to create a letter using a template with two pages. (The template is created with MS-Word) One page with header/footer for the first page and one page as a template for rest of the pages. The idea is to add template page 2 as many times as needed.

Function NewPage(N) && N is template page 1 or 2.
Local nLast, nDoc2
With This
  If N==1
   result=.oPDF.LoadFromFile(.templatefile)
   This.DocId=.oPDF.SelectedDocument()
   nLast=This.oPDF.PageCount()
   .oPDF.DeletePages(2,nLast-1)
  Else
   result=.oPDF.LoadFromFile(.templatefile)
   nDoc2=.oPDF.SelectedDocument()
   .oPDF.DeletePages(1,1)
   .oPDF.SelectDocument(.DocId)
   .oPDF.MergeDocument(nDoc2)
  Endif
  nLast=This.oPDF.PageCount()
  .oPDF.SelectPage(nLast)
  Return result
Endwith
Endfunc

]]> Thu, 18 Mar 2010 12:38:26 +0000 http://www.quickpdf.org/forum/adding-pages_topic1371_post6241.html#6241