Adding pages

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
einar Members Profile Find Members Posts Beginner Joined: 18 Mar 10 Location: Norway Status: Offline Points: 11	Post Options Post Reply Quote einar Report Post Thanks(0) Quote Reply Topic: Adding pages 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