Insert Blank Page

To insert a blank page into an existing PDF Document please load that PDF Document first to memory and then call:

insertblank(pageno As Long) 

This function returns 0 in case of an error and pageno in case of success.

Please do not forget to save you document after changes have beeing done.

An easier function is the function append_blank. Please visit Append PDF to see some sample code!

Remove Pages

The following sample will demonstrate how to remove a given amount of pages from a loaded PDF document.

dim pdf
dim pdffile
dim TargetPDF
dim spage  'startpage
dim pagec  'pagecount

TargetPDF = "c:\output.pdf"
pdffile = "c:\input.pdf"

set pdf = createobject("aloahapdf.edit")

If pdf.load_pdf_to_mem(CStr(pdffile)) = true Then
   if pdf.DeletePages(clng(spage), clng(pagec)) = true then
         call pdf.save_pdf_to_file(cstr(TargetPDF))
   end if
end if

set pdf = nothing