Resize PDF Pages

Sometimes it is required to change the papersize of a given PDF.
For example A3 -> A4 or A5 -> A3 etc.

Aloaha offers one simple function call for this task.


dim pdf
dim orgfile
dim targetfile

set pdf = createobject("aloahapdf.edit")

if pdf.load_pdf_to_mem(cstr(orgfile)) = true then

if pdf.resize_pdf(cdbl(newx), cdbl(newy), cdbl(oldx), cdbl(oldy)) = true then

if pdf.save_pdf_to_file(cstr(targetfile)) = true then
     call pdf.unload_pdf_from_mem
     msgbox "OK"
end if

end if

end if

set pdf = nothing


Please note that this API required a valid (eval)key in order to work.