Debenu Quick PDF Library - PDF SDK Community Forum : VB6 code for using CopyPageRanges function http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 08 May 2026 05:56:09 +0000 Sun, 20 Sep 2009 11:27:40 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=1219 <![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[VB6 code for using CopyPageRanges function : Small snippet of VB6 code for...]]> http://www.quickpdf.org/forum/vb6-code-for-using-copypageranges-function_topic1219_post5615.html#5615 Author: Rowan
Subject: 1219
Posted: 20 Sep 09 at 11:27AM

Small snippet of VB6 code for using CopyPageRanges function:

---------------------------
Private Sub btnCopyPageRanges_Click()Dim ClassNameDim LicenseKeyDim FileNameClassName = "QuickPDFAX0716.PDFLibrary"LicenseKey = "..." 'SET YOUR LICENSE KEY HERE...FileName = "C:\Program Files\Quick PDF Library\Quick PDF Library 7.16 Reference Guide.pdf"Dim QPDim ResultDim FromDocumentIDDim ToDocumentIDSet QP = CreateObject(ClassName)Result = QP.UnlockKey(LicenseKey) If Result = 1 Then ' Load file to copy pages from Call QP.LoadFromFile(FileName) ' Get document ID of loaded file FromDocumentID = QP.SelectedDocument() ' Create new document to copy pages to and get document id ToDocumentID = QP.NewDocument() ' Select document to copy pages to Call QP.SelectDocument(ToDocumentID) ' Copy pages from the first document to the second document (which has already been selected) Call QP.CopyPageRanges(FromDocumentID, "10,15,18-20,25-35") ' Delete the first page in the new document as it is a blank page Call QP.DeletePages(1, 1) ' Save the (already selected) new document to disk Call QP.SaveToFile("C:\PagesCopied.pdf")Else MsgBox "Invalid license key. Please set your license key by editing this file."End IfEnd Sub
---------------------------
]]> Sun, 20 Sep 2009 11:27:40 +0000 http://www.quickpdf.org/forum/vb6-code-for-using-copypageranges-function_topic1219_post5615.html#5615